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I . 1 PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIER THE OPERATION OF THE 
DLV11-J SERIAL INTERFACE . 

TESTING IS DONE IN TWO DISTINCT PHASES: 

1. ALL SELECTED CHANNELS PER DLV11-J MODULE ARE TESTED INDIVIDUALLY 

2. THE DLV11-J MODULE IS TESTED AS A WHOLE FOR CHANNEL INTERACTION 
PROBLEMS. THIS DIAGNOSTIC IS DESIGNED TO TEST AND DETECT 
ERRORS TO THE LOGIC LEVEL (NOT TO THE CHIP LEVEL). 

THIS DIAGNOSTIC OPERATES UP TO 2 DLV11-J SERIAL LINE INTERFACES 
CONFIGURED AT CONSECUTIVE BASE ADDRESSES. 

THE PROGRAM WILL DO AUTO-SIZING IF THE DEVICE MAP 'SDEVM' 0. 

ALTERNATELY. THE OPERATOR CAN SELECT OR DESELECT INDIVIDUAL MODULES 
& CHANNELS BY SETTING THE PROPER BITS IN 'SDEVM' (SEE PROGRAM OPTIONS SEC. 2. A) 
BEFORE RUNNING THE PROGRAM. 

BY THIS METHOD. THE PROGRAM WILL BYPASS AUTO-SIZING AND T EST ONLY 
THOSE MODULES/CHANNELS IT UNDS IN SDEVM. 

IN EITHER CASE, THE PROGRAM WILL PRINT OUT ALL MODULES & CHANNELS 
TO BE TESTED BEFORE PROCEESING. 

THE OPERATOR MUST INSTALL DATA WRAP AROUND CONNECTORS TC DO 
DATA TESTING. TO BYPASS DATA TESTS, T HE OPERATOR MUST MODIFY 
' SUSWR ' (USER SWITCH REGISTER) , SEE PROGRAM OPTIONS SEC. 2.4) 

THF DEFAULT ADDRESSES & VECTORS ARE AS FOLLOWS: 

177560 -CONSOLE INTERFACE DEVICE ADDRESS 
176500 -FIRST SERIAL CHANNEL ADDRESS OF UP TO 8 CONSECUTIVE 
SERIAL LINE DEVICES. 


60 - VECTOR FOR CONSOLE DEVICE INTERFACE. 

300 - VECTOR FOR FIRST OF 16 DEVICES. 

THIS PROGRAM IS DESIGNED TO RUN ON ANY Q-8US PDP-11 WITH 4K OF 
MEMORY AND A DLV11-J (Q-QUS) MODULE. IT CAN RUN UNDER XXDP & 

APT MONITORS. AND ON PROCESSORS WITH NO HARDWARE 
SWITCH REGISTER. 


E 
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1.2 SYSTEM REQUIREMENTS. 

HARDWARE REQUIREMENTS: 

ANY Q-BUS PDP-11 FAMILY PROCESSOR 
4K MEMORY - MINIMUM 

A SPECIAL DATA WRAP AROUND CONNEC T OR OR EQUIVALENT 
(REQ'D IF DATA WRAP AROUND TESTS DESIRED) 

IF CHANNEL 3 IS CONFIGURED AS THE CONSOLE: 

TESTS 6-12, 14-17. 21, 22 ARE BYPASSED. 

IF DATA WRAP AROUND TESTS ARE BYPASSED: 

TESTS 7-12. 14-17, 21, 22 ARE BYPASSED. 

IF CHANNEL 3 IS CONFIGURED AS THE CONSOLE £ A VT-100 IS 
THE CONSOLE DEVICE, SWITCH THE VT-100 TO "JUMP SCROLL" MODE 
TO AVOID LOOSING CHARACTERS ON THE SCREEN. 


SOFTWARE REQUIREMENTS: 


THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF THE 
FOLLOWING WAYS: 

STAND ALONE 
WITH APT MONITOR 

WITH XXDP MONITOR ( CHAINABLE IF RENAMED to .QIC EXTENSION) 

THIS DIAGNOSTIC IS NOT DESIGNED TO RUN WITH THE 
DIAGNOSTIC SUPERVISOR. 


RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 
APT 

SYSMAC 


1 75-003-009-02 

MD-1 1-DZZMA 
MD-1 1-DZQAC 


’.4 DIAGNOSTIC HIERARCHY PREREQUISITES. 

NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS. BUT 
THE PROCESSOR. MEMORY, AND BUS 'RE ASSUMED TO BE FULLY 
OPERATIONAL. 


ASSUMPTIONS. 


this diagnostic assumes that the operator has initialized 

LOCATION 'SUSWR ’ AND ’ $DE VM ' TO THE PROPER VALUES. (SEE SEC. 2.4) 


F 1 
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2.0 OPERATING INSTRUCTIONS. 


?.i loading and starting procedures. 

USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 
MEDIA. 

THERE ARE 2 STARTING LOCATIONS FOR THIS DIAGNOSTIC: 

\ LOCATION 200 FOR ALL NORMAL TESTING STARTS £ RESTARTS. 

2. LOCATION 400 FOR INTERRUPT VECTOR DEBUG... OFFLINE ONLY. 

THE 400 START SHOULD BE USED ONLY TO DE8JG FAULTY VECTOR ADDRESSES 
PUT OUT BY THE DV11-J DURING INTERRUPTS. 

STARTING AT 400 WILL CAUSE THE ENTIRE VECTOR AREA. EXCEPT THAT 
NEEDED BY SYSMAC. TO BE OVERWRITTEN £ TO POINT TO A COMMON SERVICE 
ROUTINE TO ENABLE LOOPING ON THE PROBLEM. 

AS SOON AS TESTING STARTS. THE OPERATOR CAN CHANGE THE SWITCH 
REGISTER OILY BY A ’BREA K' £ MANUALLY LOADING LOCATION 176 (SWREG) 
WITH THE DESIRED CONTENTS (SEE SEC. 2.3) THEN DOING A *P’ TO PROCEED. 

IT IS IMPORTANT THAT WHEN GOING BACK TO NORMAL TESTING A FRESH 
LOAD OF THE PROGRAM BE PERFORMED TO RESET THE VECTOR AREA. 

THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
BIT 8 IN SWREG AND THE 'EST NUMBER (IN OCTAL) IN BITS <7:0>. 

(NOTE: ALL TESTS PREVIOUS TO the SELECTED 

ONE ARE EXECUTED WITHOUT ITERATIONS.) 


2.2 SPECIAL ENVIRONMENTS. 

THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT.XXDP MONITORS. AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 

- .< OPERATIONAL SWITCH SETTINGS 

THE SOFTWARE SWITCH REGISTER (LOC. 176) IS USED FOR ALl 
OPERATIONAL SWITCH SETTINGS. 

THIS CAN BE ACCOMPLISHED IN THF FOLLOWING WAY: 
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' ) TYPE CONTROL G < A G>; 

DATA INTO LOC. 
PROGRAM. 


THIS WILL ALLOW THE TTY TO ENTER 
176 AT SELECTED POINTS WITHIN THE 


SEQ 0006 




THE MACHINE WILL THEN TYPE:’ SWR=XXXXXX NEW=* (XXXXXX IS 
t HE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE *NEW=* HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE TTY: 

A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A <CR> . (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED. AND IF MORE THAN 6 
DIGITS ARE TYPED THE LAST 6 WILL BE USED. IF A <CR> 
IS THE FIRST KEY DEPRESSED THE SOF T WARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

B) IF A CONTROL U < A U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 

C) IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


A) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 

NOTE: BECAUSE OF FREQUENT BUS RESETS IN THE PROGRAM. IT MAY BE 

NECESSARY TO DO 'CONTROL-G* SEVERAL TIMES. 

ALTERNATELY. A 'BREAK* £ MANUALLY LOADING LOC. 1/6. 
FOLLOWED BY A *P* TO PROCEED WILL ALSO WORK. 

SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


BIT 15 SET - 
14 SET - 
13 SET - 
12 SET - 
11 SET - 
10 SET = 
9 SET - 
8 SET 
7:0 


100000 - HAL T ON ERROR 

40000 - LOOP ON TEST (TO BE USED ONLY WHILE 
20000 INHIBIT ERROR TYPEOUTS 
10000 - ENABLE PERFORMANCE REPORTS 
4000 ~ INHIBIT ITERATIONS 

2000 BELL ON ERROR 

1000 ~ LOOP ON ERROR 

400 LOOP ON TEST IN SWR<7:0> 

NUMBER OF TEST TO LOOP ON 
(ALL TESTS PREVIOIUS TO 
ARE EXECUTED FIRST WITH 


TESTING IN PROGRESS) 


(USED WITH BIT 8) 
THE SELECTED TEST 
1 ITERATION ONcV) 
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PROGRAM OPTIONS. 

T H] S PROGRAM REQUIRES THE ADDRESS OF THE FIRST RCSR (STORED AT 'SBASE ' ) AND 
ITS INTERRUPT VECTOR (STORED AT 'SVECTI'). IT WILL BE ABLE 
TO ADDRESS ANY DLVil-J STARTING AT THE SPECIFIED BASE ADDRESS 
THRU 2 CONSECUTIVE MODULES. 

EXAMPLES: SBASE : 176500 (DEFAULT) 

SVECT1: 300 (DEFAULT) 

LOCATION *$DEVM’ IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
MLWBERS ARE PRESENT AND WILL BE TESTED. 


SDFVM (BITS 15 THRU 8 NOT USED) 
'5 14 13 12 11 10 9 


. MODULE 2— 

8 7 6 5 


MODULE 1- 

3 2 1 




1 0 


1.0! CHANNEl 




A BIT MAP CAN BE ENTERED AT '$DEVM* PRIOR TO STARTING THE PROGRAM. 

IF ’SDEVM' IS LEFT AT ITS DEFAULT VALUE (0). THE PROGRAM WILL DC AUTO-SIZING 
BEGINNING AT THE DEVICE ADDRESS IN 'SBASE ' & WILL SETUP 'SDEVM' ACCORDINGLY. 
IN EITHER CASE. THE PROGRAM WILL TYPE OUT A LIST OF ALL THE 
MODULES/CHANNELS TO BE TESTED BEFORE PROCEEDING. 

NOTE: SIZING IS PERFORMED ONLY ONCE AT THE BEGINNING OF THE PROGRAM. 

IF $DEVM IS TO BE CHANGED. THE PROGRAM MUST BE RESTARTED AT 200 
FOR IT TO BE EFFECTIVE. OTHERWISE, $DEVM WILL BE IGNORED. 

OPTIONS 

LOCATION $USWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE VALUES 
IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD CONFIGURATION. 


BIT POSITION DEFINITION 


SUSWR 

DEFAULT VALUE 


4 

M .Qs 


OF DATA BITS TRANSMITTED 
0 7 BITS. 1 8 BITS 

PARITY ENABLED 
EVEN ODD PARITY 
BREAK DETECTION ENABLED 
RUN DATA WRAP AROUND TESTS 
CONSOLE DEVICE 


= 8 BITS 

- NO 
ODD 
YES 

-- YES 

- YES - CONSOLE ON MODULE 1. CHAN. 3 


i 


<• 1 1 : 9> 0 CONSOLE NOT ON DLVil-J 

<11 :9> 1 CONSOLE ON MODULE 1 

< 1 ’ : 9> ? CONSOLE ON MODULE 2 


I 1 

CyDLAAO DLV11-J TEST MACY11 30GL1063) 17-NOV-78 09:39 PAGE 9 

f VDLAB.P1 T 17-N0V-78 09:38 


IMPORTANT: 

1 . fOR DIAGNOSTIC PURPOSES. ALL CHANNELS MUST BE CONFIGURED 
TO THE SAME BIT/WORD LENGTH. 

?. THE ’SIZING' ROUTINE WILL SET THE APPROPRIATE CHAN 3 BIT 
IN SDEVM IF BITS <1 1 :9> ARE SET IN SUSWR. 

3. IF RUNNING UNDER APT & THE CONSOLE IS ON THE DLV11-J. THE 
CONSOLE MUST NOT BE TESTED. 

THIS IS BECAUSE APT SENDS 'BREAKS’ TO THE CONSOI E WHICH 
INTEREFERES WITH THE TESTS. 

FOR THIS CASE: 

A. ALLOW THE SDEVM TO STAY EITHER AT ITS DEFAULT OF 0 
OR CLEAR THE APPROPRIATE CHAN. 3 BIT. 

B. CLEAR BITS <11:9> IN SUSWR SO THE CONSOLE BIT WILL NOT 
BE SET INTO SDEVM FOP TESTING. 


SEQ 0008 



J 
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SUMMARY OT DEVICE ADDRESSES & VECTORS. 

VECTORS 

DEV ADDRESS 




(RCSR) 

REC 

XMIT 

MODULE #1 

CHANNEL 0 

XBASE *00 

XVECT1+00 

XVECT1 +4 


1 

♦10 

♦ 10 

+ 14 


2 

♦20 

♦20 

♦24 


3 

♦ 30 

♦ 30 

♦34 

MODULE *2 

CHANNEL 0 

♦40 

♦40 

♦44 


1 

♦50 

♦ 50 

♦54 


2 

♦60 

♦60 

♦ 64 


3 

♦ 70 

♦ 70 

♦ 74 

CONSOLE DEVICE 

3 

XTKS 

TKVEC- 

-60 TPVEC 


SUMMARY OF USER LOCATIONS £ DEFAULTS. 



LOC 

DEFAULT 







X8ASF 

1250 

1 76500 







XVECT1 

1244 

300 







XTKS 

1144 

177560 

FOR 

CONSOLE DEVICE 

ON 

MODULE 

UNDER 

TEST 

TKVEC 


60 

FOR 

CONSOLE DEVICE 

ON 

MODULE 

UNDER 

TEST 

TPVEC 


64 

FOR 

CONSOLE DEVICF 

ON 

MODULE 

UNDER 

TEST 

XUSWR 

1220 

1031 

SEE 

SEC. 2.4 





XDEVM 

1252 

0 

SEE 

SEC. 2.4 





SWREG 

176 

0 

SEE 

SEC. 2.3 






2.5 EXECUTION TIMES. 

EXECUTION TIMES FOR AN LSI-11 PROCESSOR WITH ONE DL VI 1 -J MODULE AT SHIPMENT CONFIGURATION: 

CH. 0.1.2 AT 9600 BAUD. 

CH. 3 (CONSOLE) AT 300 BAUD. 

ARE: FIRST PASS- 30 SEC 

ADDITIONAL PASSES 90 SEC 

THE TEST TIME IS BAUD RATE DEPENDENT; HIGHER BAUD RATES RESULT IN 
SHORTER PASS TIMES. 

2.6 POWER FAIL. 

AUTO START FROM POWER FAIL IS NOT IMPLEMENTED IN T HIS D RCGRAM. 



3.1 ERROR REPORTING PROCEDURE. 


SINCE THIS DIAGNOSTIC WAS DESIGNED T 0 FIT IN AK OF MEMORY THE 
ERROR TYPEOUT IS VERY BRIEF. THE ORMAT OF THE ERROR TYPEOUT 
IS AS FOLLOWS: 

TfS T* .ERROR* .PC - ADDRE SS= , VE C TOR- 

WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING CHANNEL. 

FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 

BITS 15.13.10 AND 9 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 SET: CAUSES THE PROGRAM TO HALT IN THE ERROR ROUTINE. 
IF THE PROGRAM IS CONTINUED. IT WILL PROCEED 
FROM WHERE IT HALTED. 

BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 

BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 

BIT 9 SET: CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 

THE ERROR ROUTINE SUPPORTS THE CONTROL G < A G> ^ UNCTION. 

REFER TO SECTION 2.3 FOR DETAILS. 

3.2 ERROR HALTS. 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE. AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SWREG) IS SET 
WHFN AN ERROR OCCURS. 


L 
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4.0 PERFORMANCE AND PROGRESS REPORTS. 


4.1 PERFORMANCE REPORTS. (BIT 12 StT IN THE SWITCH REGISTER ’ SWREG' ) 

AS EACH CHANNEL (4 CHANNEL S/DLVl 1-J) COMPLETES ONE PASS OF 
THE DIAGNOSTIC THE FOLLOWING ITEMS ARE TYPED : 

’ CSR: ' : THE BASE ADDRESS OF THE LINE UNDER TEST 

1 VECTOR? ’ : THE ASSOCIATED VECTOR 
'ERRORS:"’ : THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
ON THIS PASS. 


AFTER ALL MODULES & CHANNELS TO BE TESTED HAVE BEEN EXERCISED, 
AN END PASS STATEMENT IS TYPED: 


' END PASS# ." 

EXAMPLE OF PRINTOUT ASSJMING: 2 DLV11-J MODULES 

ALL CHANNELS ENABLED 
SEPERATE CONSOLE DEVICE 
NO ERRORS 

CVDLABO DL VI 1 -J TEST 

SWR- 000000 NEW- 10000<CR> (ENABLE PERFORMANCE REPORTS) 


WILL TEST: 

MODULE 1 CHANNEL 0123 
MODULE 2 CHANNEL 0123 

** PHASE 1 SUMMARY ** 

CSR: 176500. VECTOR: 000300. ERRORS: 0 
CSR: 176510, VECTOR: 000310. ERRORS: 0 
CSR: 176520. VECTOR: 000320. ERRORS: 0 
CSR: 176530. VECTOR: 000330, ERRORS: 0 

** PHASE 2 SUMMARY ** 

CSR: 176500, VECTOR: 000300, ERRORS: 0 

** PHASE 1 SUMMARY ** 

CSR: 176540. VEC r OR: 000340, ERRORS: 0 
CSR: 176550, VECTOR: 000350. ERRORS: 0 
CSR: 176560, VECTOR: 000360, ERRORS: 0 
CSR: 176570. VECTOR: 000370, ERRORS: 0 

** PHASE 2 SUMMARY ** 

CSR: 176540. VECTOR: 000340, ERROR j : 0 


END PASS * 


1 
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5.0 DEVICE REGISTERS. 


SEO 0012 


15 K 13 12 11 


R8UF.ERR0I0R ! FR !P ! 
R !ERR !ERR !ERR ! 

Tr$R! . 11 : 


T8UF ! 


IRCVR1RCVR ! 
! DONE .'IE ! 


RECEIVER DATA BUFFER 


.XMIT.'XMIT. 
!RDY ! IE ! 


!RDR . 
! ENB ! 


IT. ! ! ! !8REA. 

**********<********************** 

TRANSMITTER DATA BUFFER ! 


NOTES: 

RCSR AT BASE ADDRESS (S8ASE ) 

R8UF AT S8ASE+2 
TCSR AT J6ASE+4 
TBUF AT S8ASE*6 

BLANK BOXES INDICATE UNUSED AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLANATION OF THE BITS. 


3. ORERR 
FRERR 
PERR 


OVERRUN ERROR 
FRAMING ERROR 
PARITY ERROR 



UNDER TEST RESPOND TO THEIR ADDRESSES. 
THE FOLLOWING 3 TESTS TEST ALL ’READ WRITE' BITS 
TEST 2 BREAK - TCSR 0 SET. CLEAR. RESET 

TEST 3 XMI TIE - TCSR 6 SET. CLEAR. RESET 


TEST 4 RCVRIE - RCSR 6 SET. CLEAR. RESET 


TEST 5 XMITRDY - TCSR 7 - IS SET 8Y INI T 


TEST 6 XMI T RDY - TCSR 7 - CLEARS WHEN TBUF IS LOADED 

WITH A CHARACTER AND THAT IT SETS WITHIN A 

REASONABLE AMOUNT OF TIME. 


TEST 7 OUTPUTTING A CHAR FROM TBUF (WITH WRAP AROUND CONNECTED) 

RESULTS IN RCVRDONE SETTING WITHIN A 

REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 

TF ST 10 RCVRDONE IS CLEARED BY SETTING READER ENABLE 


TEST 11 RCVRDONE IS CLEARED BY READING RBUF 


TEST 12 OVERRUN & FPROR BIT - RBUF 14 


V VWV1V l/L 

CV0LAB.P11 
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TEST 13 TRANSMITTER INTERRUPi LOGIC TEST 

uOGICALLLY THIS IS 4 SEPARATE TESTS 

A) DOES TRANSMITTER INTERRUPT LOGIC WORK 

B) AT PRIORITY OF 0 

C) AND ONLY ONCE 

D > BUI NOT WITH INTERRUPT ENABLE CLEAR 


TEST 14 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 

OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 

CHARACTER MODE. 


TEST 15 TEST DATA WRAP AROUND: FLAG MODE. 


TEST 16 TEST DAT* WRAP AROUND: INTERRUPT MODE. 


TEST 17 TEST BREAK DETECTION LOGIC TRANSMIT KNOWN CHAR 

A) TRANSMIT KNOWN CHAR WITH BREAK SET 
AND COMPARE RECEIVED WITH 0 

B) TEST FOR FRAMING ERROR ON BREAK 

C) IF PARITY IS ENABLED AND ODD PARITY IS SELECTED. 
CHECK TO BE SURE PARITY ERROR WAS GENERATED 

D> IF PARITY IS ENABLED AND EVEN PARITY IS SELECTED. 
CHECK TO BE SURE NO PARITY ERROR OCCURRED 


TEST 20 NOT A TEST - SEND BACK TO LOOP 


PHASE 2 TESTS 

TEST 2 1 TEST THAT CHANNELS INTERRUPT AT ASSIGNED PRIORITY 


TEST 22 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING. 


SEQ 0014 


X 
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SEQ 0015 


TITLE CVDLAAO DLV11-J TEST 
•COPYRIGHT (C) 1978 
*DIGI T AL EQUIPMENT CORP. 

•MAYNARD, MASS. 01754 
* 

•PROGRAM BY GREGORY GLEZMAN £ GARY PAPAZIAJ 
% 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (MAINDEC-1 1-DZQAC-C3) , JAN 19, 1977. 


001100 


S8TTL 

* 

* 

operational 

SWITCH 

SWITCH SETTINGS 

USE 

* 

15 

HALT ON ERROR 

% 

14 

LOOP ON TEST 

* 

13 

INHIBIT ERROR TYPEOUTS 

* 

11 

INHIBIT ITERATIONS 

* 

10 

BELL ON ERROR 

* 

9 

LOOP ON ERROR 

* 

8 

LOOP ON TEST IN SWR<7: 

S8TTL 

BASIC DEFINITIONS 


.-•INITIAL ADDRESS OF THE STACK POINTER **• 1100 •** 
STACK= 1100 

.EQUIV EMT. ERROR ; .-BASIC DEFINITION OF ERROR CALL 

. EOUIV IOT. SCOPE .-.BASIC DEFINITION OF SCOPE CALL 


; ‘MISCELLANEOUS 


64 7 

00001 1 

HT= 

11 

648 

000012 

LF = 

12 

649 

00001 5 

CR= 

15 

650 

000200 

CRLF = 

200 

651 

1 77776 

PS= 

177776 

652 

653 

1 77774 

.EQUIV 

stklmt= 

PS.PSW 

17^774 

654 

177772 

PIRQ- 

1 77772 

655 

1 77570 

DSWR- 

177570 

656 

1 77570 

DDI SP= 

177570 

657 

658 

659 

000000 

.-•general purpc 

RO- *0 

660 

000001 

R1- 

XI 

661 

000002 

R2- 

X2 

662 

000003 

R3- 

X3 

663 

000004 

R4- 

X4 

664 

000005 

R5 

X5 

665 

000006 

R6 

X6 

666 

000007 

R7 

X7 

66 7 

000006 

SP= 

X6 

668 

000007 

PC = 

X7 

669 

670 

671 

000000 

.-•PRIORITY l EVE 
PRO 0 


DEFINITIONS 

.-.CODE FOR HORIZONTAL TAB 

.-.-CODE FOR LINE FEED 

; ; CODE FOR CARRIAGE RETURN 

.-.-CODE FOR CARRIAGE RETURN-LINE FEED 

.-.PROCESSOR STATUS WORD 


.-STACK LIMIT REGISTER 
.-PROGRAM INTERRUPT REQUEST REGISTER 
.-HARDWARE SWITCH REGISTER 
; HARDWARE DISPLAY REGISTER 


GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 


;; PRIORITY LEVEL 


D 2 
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SEQ 0016 


672 

000040 

673 

000100 

674 

000140 

675 

000200 

676 

000240 

677 

000300 

678 

000340 

679 


680 


681 

100000 

682 

040000 

683 

020000 

684 

010000 

685 

004000 

686 

002000 

687 

001000 

688 

000400 

689 

000200 

690 

000100 

691 

000040 

692 

000020 

693 

000010 

694 

000004 

695 

000002 

696 

000001 

697 


698 


699 


700 


701 


702 


703 


704 


705 


706 


707 


708 


709 

100000 

710 

040000 

711 

020000 

712 

010000 

713 

004000 

714 

002000 

715 

001000 

716 

000400 

717 

000200 

718 

000100 

719 

000040 

720 

000020 

721 

000010 

722 

000004 

723 

000002 

724 

000001 

725 


726 


727 



PRIORITY 

PRIORITY 

PRIORITY 

PRIORITY 

PRIORITY 

PRIORITY 

PRIORITY 


LEVEL 1 
LEVEL 2 
LEVEL 3 
LEVEL A 
LEVEL 5 
LEVEL 6 
LEVEL 7 


.••“SWITCH REGISTER 1 ' SWITCH DEFINITIONS 


SW15- 100000 

SW14= A 0000 
SW13- 20000 

SW12- 10000 

SW1 1 4000 

SW10- 2000 

SW09- 1000 

SW08- 400 

SW07- 200 

SW06- 100 

SW05- 40 

SW04 20 

SW03 10 

SW02= 4 

SW01- 2 

SWOO- 1 

. EQUI V SW09.SW9 
.EOUIV SW08.SW8 
. EQUI V SW07.SW7 
.EQUIV SW06.SW6 
. EQUIV SW05.SW5 
.EQUIV SW04.SW4 
.EQUIV SW03.SW3 
.EQUIV SW02.SW2 
.EQUIV SW01.SW1 
.EQUIV SWOO.SWO 


; *DATA BIT DEFINITIONS 'BITOO TO BIT1S) 


BI T 1 5= 
BIT14= 
BIT13- 
BIT12- 
BIT1T- 
BIT10- 
BIT09- 
BI TOfi" 
BIT07- 
BIT06- 
BI T05= 
BI T04= 
BIT03- 
8IT02- 
BIT01= 
BITOO- 
. EQUIV 
.EQUIV 
.EQUIV 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT09.8IT9 
BIT08.8ITC 
81107,81 T7 






E 2 

CVDLAAO DLVH 

-J TEST 

MAC V1 1 

306(1063) 1 7-NOV-78 09:39 PAGE 

18 

CVDLAB.PH 

1 7-MOV-78 

09:38 

BASIC DEFINITIONS 


728 



.EQUIV BIT06.8IT6 


729 



.EQUIV BIT05.BIT5 


730 



.EQUIV BIT04.8IT4 


731 



.EQUIV BIT03.8IT3 


732 



.EQUIV 81 T02.BI T2 


733 



.EQUIV BIT01.8IT1 


734 



.EQUIV BIT00.8IT0 


735 





736 



;*8ASIC "CPU" TRAP VECTOR 

ADDRESSES 

737 

000004 


ERRVEC= 4 


TIME OUT AND OTHER ERRORS 

738 

000010 


RESVEC- 10 


RESERVED AND ILLEGAL INSTRUCTIONS 
*7" BIT 

739 

000014 


TBITVEC=14 


740 

000014 


TRTVEC- 14 


TRACE TRAP 

741 

000014 


BPTVEC= 14 


BREAKPOINT TRAP (8PT ) 

742 

000020 


IOTVEC= 20 


INPUT/OUTPUT TRAP (IOT) **SCOPE** 

743 

000024 


PWRVEC= 24 


POWER FAIL 

744 

000030 


EMTVEC= 30 


EMULATOR TRAP (EMT) **ERROR** 
"TRAP" TRAP 

745 

000034 


TRAPVEC=34 


746 

000060 


TKVEC= 60 


TTV KEYBOARD VECTOR 

747 

000064 


TPVEC= 64 


TTY PRINTER VECTOR 

748 

000240 


PIRQVEC=240 


PROGRAM INTERRUPT REQUEST VECTOR 

749 





750 





751 





752 

000001 


ADRS- R1 


753 

1 76500 


DLADDR- 176500 


754 





755 



; THE FOLLOWING DEFINITIONS APPLV TO THE GLOBAL SUBS 

756 

1 77777 


SET= -1 


757 

000000 


CLR 0 


758 

OOOOOi 


TRUE 1 



SCO 0017 


CVDLAAO DLV11 
CVOLAB.P1 1 


759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 
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t*fr**ft*ft***ft*4*** 


RCSR REGISTER BIT NAMES 


000200 

000100 


000001 


; UNUSED 

BIT15 


; UNUSED 

BITK 


; UNUSED 

BIT13 


; UNUSED 

BIT12 


; UNUSED 

BIT11 


; UNUSED 

BIT10 


; UNUSED 

BIT09 


; UNUSED 

BIT 08 


RCVRDONE- 

BIT07 

; RECEIVER DONE 

RCVRIE- 

BIT06 

; RECEIVER INTERRUPT ENABLE 

; UNUSED 

BIT05 


; UNUSED 

BIT04 


; UNUSED 

BIT 03 


; UNUSED 

BIT02 


; UNUSED 

BIT01 


RDRRUN= 

BITOO 

; READER RUN 


; R8UF REGISTER BIT NAMES 


100000 

ERROR- 

BIT15 

ERROR INDICATOR 

040000 

ORERR= 

BIT14 

OVERRUN ERROR 

C20000 

FRERR= 

BIT13 

FRAMING ERROR 

010000 

PERR= 

BIT12 

PARITY ERROR 


; UNUSED 

BIT11 



; UNUSED 

BIT10 



; UNUSED 

BIT09 



; UNUSED 

BIT08 


000200 

RDATA7- 

BIT07 

\ 

000100 

RDATA6= 

BIT06 


000040 

RDATA5= 

BIT05 

• 

000020 

RDATA4= 

BIT04 

\ RECEIVED DATA BITS 

000010 

RDATA3= 

BIT 03 

/ 

000004 

RDA TA2- 

BIT02 


000002 

RDATA1 = 

BIT 01 


000001 

RDATAO- 

BITOO 

/ 


SEQ 0018 


CVDLAAO DLVl 1 

-J TEST 

cvdlj«.pii 

1 7-N0V“78 

800 


801 


802 


803 


804 


805 


806 


80 7 


808 


809 


810 


811 


812 

000200 

813 

000100 

814 


815 


816 


817 


818 


819 

000001 

820 


821 


822 


823 


824 


825 


826 


827 


828 


829 


830 


831 


832 


833 

000200 

834 

000100 

835 

000040 

836 

000020 

837 

000010 

838 

000004 

839 

000002 

840 

000001 

841 


842 


843 


844 


845 


846 

000002 

847 

000004 

848 

000010 

849 

000020 


HAC vl 1 30G( 1063) 17-NOV-78 09:39 PAGE 
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SEQ 0019 


; TCSR REGISTER BIT NAMES 


; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
XMITRDT- 
XMITIE= 

; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 


BIT15 
BIT14 
B I T 1 3 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 
8IT06 
8 1 T 05 
BIT04 
BIT03 
BIT02 


TRANSMITTER READY 
TRANSMITTER INTERRUPT ENABLE 



UNUSED 

BI T 01 


BREAK- 

81 TOO 

SEND BREAX (CONTINUOUS 


T8UF REGISTER BIT NAMES 



UNUSED 

BIT15 



iWUSED 

BITH 



UNUSED 

BIT13 



LMISED 

BIT12 



UNUSED 

BIT11 



UNUSED 

8 1 T 1 0 



LMJSED 

BITC9 



UNUSED 

BIT08 


TDATA7- 

BIT07 

\ 

TDATA6= 

BIT06 


TDATA5= 

BIT05 


TDATA4 = 

BIT04 

\ TRANSMITTER data buf 

TDATA3= 

BIT03 


TDATA2= 

BIT02 


TDATA1= 

BIT01 


TDATAO r 

BITOO 

/ 

; FLAG BITS TO BE 

USE OR CLEARED 

IN *USUR. 


PARITY 

EVtNODD 

ftiw 

yRAP 


CVDLAAO DIVH-J TEST MACY11 

CVDLAB.P11 T 7 -N0V-78 09:38 

850 

DC 1 

30G n 063) 17-NOV-78 

BASIC DEHNIT 

M 2 

09:39 PAGE 21 

IONS 


OJ 1 







852 




.S8TTL TRAP 

CATCHER 


853 







854 


000000 


.'0 



855 




; *ALL UNUSED 

LOCATIONS FROM 4 - 

776 CONTAIN A •‘.♦2,HAL T " 

856 




; ‘SEQUENCE TO 

CATCH ILLEGAL TRAPS AND INTERRUPTS 

857 




.••LOCATION 0 

CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

858 


000174 


. = 174 



859 

000174 

000000 


DISPREG: -WORD 0 

.-.-SOFTWARE DISPLAY REGISTER 

860 

000176 

000000 


SWREG: .WORD 0 

;; SOFTWARE SWITCH REGISTER 

861 




.S8TTL STARTING ADDRESS (ES) 


862 

000200 

000137 

00’ 334 

jMP 

a#START ; ; JUMP 

TO STARTING ADDRESS OF PROGRAM 

863 







864 







865 







866 







867 




; OFFLINE TESTING FOR INTERRUPT 

VECTOR PROBLEMS 

868 







869 


000400 


.=400 



870 







871 

000400 

005000 


CLR 

RO 


872 

000402 

012720 

013610 

IS: MOV 

#INT SRV, (RO' ♦ 

.-SET 1NTR HANDLER PTR 

873 

000406 

012720 

000340 

MOV 

#PR7. (RO) ♦ 

;SET PRIORITY 

874 

000412 

020027 

000400 

CMP 

R0.4T400 

.ALL DONE? 

875 

000416 

001371 


BNE 

1$ 

;8R IF NO 

876 

000420 

005037 

000176 

CLR 

176 

.-CLEAN UP SWREG 

877 

000424 

000137 

001334 

JMP 

START 

;G0 DO IT 


SEQ 0020 
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878 

879 

880 
881 
88 ? 

883 

884 

88 j 000046 

886 

887 00005? 

888 

889 

890 

891 
89? 

893 

894 

895 

896 

897 0000?4 

898 

899 000044 

900 

901 
90? 

905 

904 

905 001000 

906 001000 

907 00100? 

908 001004 

909 001006 

910 001010 

911 00101? 


000430 

000046 

014450 

00005? 

000000 

000430 

001000 


001000 

000024 

000200 

000044 

001000 

001000 


000000 
001174 
000031 
000144 
000144 
0000 3C 


SEQ 00 2 ' 


• S8TTL AC Til HOOKS 


.-HOOKS REQUIRED BY AC Til 
SSVPC*. 

.=46 

SENDAD 

.=5? 

.WORD 0 
.-SSVPC 


. 1000 

.sbttl 


; SAVE PC 

; ; 1 >SE T L0C.46 TO ADDRESS OF SENDAD IN .SEO P 

;;?)SET LOC.:? TO ZERO 
;; RESTORE PC 


APT PARAMETER BLOCK 


.SET LOCATIONS ?4 AND 44 AS REQUIRED FOR APT 


.sx-. 

. 24 
200 
. 44 
SAPTHDR 
.~.SX 


SAVE CURRENT LOCATION 

SET POWER FAIL TO POINT TO START OF PROGRAM 
FOR APT START UP 

POINT TO APT INDIRECT ADDRESS PNTR. 

POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD 

SHI8TS 

SMBADR 


.WORD 

.WORD 


ST STM: .WORD 
SPASTM: .WORD 
SUN I TM: .WORD 
.WORD 


0 

smail 

25. 

100 . 

TOO. 


.TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.-ADDRESS OF APT MAILBOX (BITS 0-15) 

;RUN TIM OF LONGEST TEST 

.-RUN T IME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
.'ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL ^IT 


SE r *ND-SMAlL/V .-.-LENGTH MAI LBOX-E TABLE (WORDS) 


J 2 
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912 

913 



. S8TTL 

COMMON 

TAGS 



91 4 








91 S 



.•THIS 

TABLE CONTAINS VARIOUS COMMON STORAGE DCATIONS 

916 

917 

918 



; ‘USED 

IN THE PROGRAM. 




001100 


.=1100 




919 

001 IOC 


SCMTAG 




START OF COMMON TAGS 

920 

0C1100 

000000 


.WORD 

0 



921 

001102 

000 

STSTAW 

.BYTE 

0 

m 

CONTAINS THE TEST NUMBER 

922 

001103 

000 

$erflg 

.BYTE 

0 

0 

CONTAINS ERROR FLAG 

923 

001104 

000000 

SICNT: 

.WORD 

0 


CONTAINS SUBTEST ITERATION COUNT 

924 

001106 

000000 

SLPADR 

.WORD 

0 


CONTAINS SCOPE LOOP ADDRESS 

925 

001110 

000000 

$LPERR 

.WORD 

0 


CONTAINS SCOPE RETURN FOR ERRORS 

926 

001112 

000000 

$ertil 

.WORD 

0 


CONTAINS TOTAL ERRORS DETECTED 

927 

00’ 114 

000 

SITEMB 

.BYTE 

0 


CONTAINS ITEM CONTROL BYTE 

928 

001115 

001 

SERMAX 

.BYTE 

1 


CONTAINS MAX. ERRORS PER TEST 

929 

001116 

000000 

SERRPC 

.WORD 

0 


CONTAINS PC OF LAST ERROR INSTRUCTION 

930 

001120 

000000 

SGDADR 

.WORD 

0 


CONTAINS ADDRESS OF 'GOOD' DATA 

CONTAINS ADDRESS OF ’BAD* DATA 

931 

001*22 

000000 

SQDADR 

.WORD 

0 


932 

001124 

000000 

SGDDAT 

.WORD 

0 


CONTAINS ’GOOD* DATA 

933 

001126 

000000 

S8DDAT 

.WORD 

0 


CONTAINS ’BAD' DATA 

934 

001130 

000000 


.WORD 

0 

0 

RESERVED— NOT TO BE USED 

935 

001132 

000000 


.WORD 

0 



936 

001134 

000 

SAUT08 

.BYTE 

0 


AUTOMATIC MODE INDICATOR 

937 

001135 

000 

$INTAG 

• BYTE 

0 

0 

INTERRUPT MODE INDICATOR 

938 

001136 

000000 


.WORD 

0 



939 

001140 

177570 

SUR: 

.WORD 

DSWR 


ADDRESS OF SWITCH REGISTER 

940 

001142 

177570 

DISPLAY: .WORD 

DDISP 


ADDRESS OF DISPLAY REGISTER 

941 

00H44 

177560 

$TKS: 

177560 



TTY KBD STATUS 

942 

001146 

177562 

tTKB: 

177562 



TTY KBD BUFFER 

943 

001150 

177564 

$TPS: 

1 77564 



TTY PRINTER STATUS REG. ADDRESS 

944 

001152 

1 77566 

$TP8: 

1 77566 



TTY PRINTER BUFFER REG. ADDRESS 

945 

001154 

000 

$NULL: 

.BYTE 

0 


CONTAINS NULL CHARACTER FOR FILLS 

946 

001155 

002 

$F ILLS 

.BYTE 

2 


CONTAINS 0 OF FILLER CHARACTERS REQUIRED 

947 

001156 

012 

$ r ILLC 

.BYTE 

12 


INSERT FILL CHARS. AFTER A "LINE FEED" 
’TERMINAL AVAILABLE" FLAG (BIT<07> 0 YES 

948 

001157 

000 

JTPFLG 

.BYTE 

0 


949 

C01160 

000000 

STIMES 

0 



MAX. NWBER OF ITERATIONS 

950 

001162 

000000 

SE SCAPE :0 



ESCAPE ON ERROR ADDRESS 

951 

001164 

1 77607 000377 

$9ELL: 

.ASCIZ 

<207><377><377> ; 

CODE FOR BELL 

952 

001170 

077 

SOUES: 

.ASCII 

/?/ 

• 

QUESTION MARK 

953 

001171 

015 

$CRLF: 

.ASCII 

<1 5> 


CARRIAGE RETURN 

954 

00H72 

000012 

tLF: 

.ASCIZ 

<12> 

# 

LINE FEED 

7J J 






******** 


956 

957 

QCO 



. SQTTL 

APT MAI LBOX-E TABLE 





.EVEN 





959 







960 

001174 


SMAIL: 




APT MAILBOX 

961 

001174 

000000 

SMSGTY 

.WORD 

AMSGTY 


MESSAGE 

TYPE CODE 

962 

001176 

000000 

SFATAL 

.WORD 

AFATAL 


FATAL ERROR NU»<BER 

963 

001200 

000000 

JTESTN 

.WORD 

ATESTN 


TEST NLMBER 

964 

001202 

000000 

$PASS : 

.WORD 

APASS 


PASS COUNT 

965 

001204 

000000 

$DEVCT 

.WORD 

ADEVCT 


DEVICE 

COUNT 

966 

001206 

000000 

SUN] T : 

.WORD 

AUMT 


1/0 UNIT NUMBFR 

962 

001210 

000000 

SMS GAD 

.WORD 

AMSGAD 


message 

ADDRESS 


SEG 0022 
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968 

001212 

000000 

SMSGLG 

.WORD 

AMSGLG 

969 

001214 


SE TABLE: 


970 

001214 

000 

$ENV: 

.BYTE 

AENV 

971 

001215 

000 

SENVM: 

.BYTE 

AENVM 

972 

001216 

000000 

SSWREG 

.WORD 

ASWREG 

973 

001220 

001031 

SUSWR: 

.WORD 

AUSWR 

974 

001222 

000000 

SCPUOP 

.WORD 

ACPUOP 

975 



* * 



976 



• * 



977 



• * 



978 



• * 



979 



* * 



980 



• * 



981 

001224 

ooc 

SMAMS1 

.BYTE 

AMAMS1 

982 

001225 

000 

SMT Y D 1 

.BYTE 

AMTYP1 

983 



* * 



984 



* 

• 



985 



• * 



986 



■ * 



987 

001226 

000000 

SMADR1 

.WORD 

AMADR1 

988 



• * 



989 

001230 

000 

SMAMS2 

.BYTE 

AMAMS2 

990 

001231 

000 

SMTYP2 

.BYTE 

AMTYP2 

991 

001232 

000000 

SMADR2 

.WORD 

AMADR2 

992 

001234 

000 

SMAMS3 

.BYTE 

AMAMS3 

993 

001235 

000 

SMTYP3 

.BYTE 

AMTYP3 

994 

001236 

000000 

SMADR3 

.WORD 

AMADR3 

995 

001240 

000 

SMAMS4 

.BYTE 

AMAMS4 

996 

001241 

000 

SMTYP4 

.BYTE 

AMTYP4 

997 

001242 

000000 

SMADR4 

.WORD 

AMADR4 

998 

001244 

000300 

SVECT1 

.WORD 

AVECT1 

999 

001246 

000000 

$VECT2 

.WORD 

AVECT2 

1000 

001250 

1 76500 

SBASE : 

.WORD 

ABASE 

1001 

001252 

000000 

$DEVW: 

.WORD 

ADFVM 

1002 

001254 


SETEND 



1003 



.MEXJT 




K 2 
24 


SEQ 0023 


;; MESSAGE LENGTH 
; ;APT ENVIRONMENT TABLE 
; .-ENVIRONMENT BYTE 
; ENVIRONMENT MODE BITS 
; ; APT SWITCH REGISTER 
;;USER SWITCHES 
; ; CPU TYPE. OPT IONS 
BITS 15-11=CPU TYPE 

1 1/04=01 . 1 1 /05=02. 1 1/20=03.1 1 /40=04 . 1 1 /45-05 
1 1/70=06, PDQ=07. 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATJNG POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS ,M.S. BYTE 
; ;MEM. TYPE .BLKA1 
MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE =001 
300 NSEC BIPOLAR-002 
500 NSEC M0S=003 
; .HIGH ADDRESS, 81 KA1 

MEM. LAST ADDR . =3 BYTES, THIS WORD AND LOW OF "TYPE” ABOVE 
;;HJGH ADDRESS.M.S. BYTE 
;; MEM. TYPE ,BLK#2 
;;MEM.LAST ADDRESS. BLK#2 
;;HIGH ADDRESS.M.S. BYTE 
;; MEM. TYPE .8LKA3 
;; MEM. LAST ADDRESS. BLKA3 
.-.HIGH ADDRESS.M.S.BYTE 
;; MEM. TYPE .8LKA4 
;;MEM.LAST ADDRESS, BLKA4 
.-.•INTERRUPT VECT0RA1.8US PRIORI TY#1 
;; INTERRUPT VECT0RA28US PRIORI TY#2 
; ;BASE ADDRESS OF EQUIPMENT UNDER TEST 
; .-DEVICE MAP 


L 2 
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1 004 



.S8TTL ERROR POINTER TABLE 


1005 






1006 



; *THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

1007 



; *THE INFORMATION IS OBTAINED BY 

USING THE INDEX NUMBER FOUND IN 

1008 



; ‘LOCATION 

JITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

1009 



;*N0TE1 : 

IF JITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

1010 



;*N0TE2: 

EACH ITEM IN THE 

TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS 

1011 






1012 



;* EM 

; .-POINTS 

TO THE ERROR MESSAGE 

1013 



;* DH 

; .-POINTS 

TO THE DATA HEADER 

1014 



DT 

;; POINTS 

TO THE DATA 

1015 



DF 

;; POINTS 

TO T HE DATA FORMAT 

1016 






1017 






1018 

001254 


SERRTB: 



1019 




GLOBAL DATA 


1020 

001254 

1 76500 

DLADD: 

DLADDR 


1021 

001256 

000300 

DLVEC: 

300 


1022 

001260 

1 76500 

RCSR : 

DLADDR ♦ 0 


1023 

001262 

1 76502 

R8UF : 

DLADDR ♦ 2 


1024 

001264 

1 76504 

TCSR: 

DLADDR * 4 


1025 

001266 

1 76506 

T6UF : 

DLADDR ♦ 6 


1026 

001270 

000000 

I: 

0 


1027 

001272 

000020 

.8LKW 20 ;FOR R5 STACK 


1028 

001 332 

000000 

R5STACK 

.WORD 0 



SEQ 0024 


CVDLAAO DLV11-J 

TEST 

MACY11 

30G( 1063) 
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ERROR POINTER TABLE 


1029 

001334 




START: 




1030 




. S8TTL 

INITIALIZE THE COMMON TAGS 

1031 





;; CLEAR 

THE COMMON TAGS ($CMTAG) AREA 

1032 

001334 

012706 

001100 



MOV 

#$CMTAG,R6 

,-FIRST LOCATION TO BE CLEARED 

1033 

001340 

005026 



CLR 

<R6> + 

CLEAR MEMORY LOCATION 

1034 

001342 

022706 

001140 



CMP 

#SWR.R6 ;;DONE? 

.-LOOP BACK IF NO 

1035 

001346 

001 374 




BNE 

.-6 

1036 

001350 

012706 

001100 



MOV 

#STACK.SP 

SETUP THE STACK POINTER 

1037 




;; INITIALIZE 

A FEW VECTORS 


■■038 

001354 

012737 

016210 

000020 


MOV 

#$SCOPE,a#IOTVEC 

; IOT VECTOR FOR SCOPE ROUTINE 

1039 

001362 

012737 

00034G 

000022 


MOV 

#340,a*IOTVEC+2 ; 

LEVEL 7 

1040 

001370 

012737 

016010 

000030 


MOV 

#$ERROR,i#EMTVEC 

;EMT VECTOR FOR ERROR ROUTINE 

1041 

001376 

012737 

000340 

000032 


MOV 

#340.a*EMTVEC*2 ; 

LEVEL 7 

1042 

001404 

012737 

017142 

000034 


MOV 

#$TRAP.a*TRAPVEC 

;TRAP VECTOR FOR TRAP CALLS 

1043 

001412 

012737 

000340 

000036 


MOV 

#340.a#TRAPVEC*2; 

LEVEL 7 

1044 

001420 

013737 

014416 

014410 


MOV 

$ENDCT,$EOPCT ; 

SETUP END-OF -PROGRAM COUNTER 

1045 

001426 

005037 

001160 



CLR 

$T IMES 

INITIALIZE NLfBER OF ITERATIONS 

1046 

001432 

005037 

001162 



CLR 

$E SCAPE 

CLEAR THE ESCAPE ON ERROR ADDRESS 

1047 

001436 

112737 

000001 

001115 


MOVB 

#1.$ERMAX 

ALLOW ONE ERROR PER TEST 

1048 

001444 

012737 

001444 

001106 


MOV 

M . . $LPADR 

INITIALIZE THE LOOP ADDRESS FOR SCOPE 

1049 

001452 

012737 

001452 

001110 


MOV 

#..$LPERR 

SETUP THE ERROR LOOP ADDRESS 

1050 




;;SIZE 

FOR A 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
•*-1“. SETUP FOR A SOFTWARE SWITCH REGISTER. 

1051 





; .-EQUAL 

TO A 

1052 

001460 

01 3746 

000004 



MOV 

3#ERRVEC,-(SP) ; 

.-SAVE ERROR VECTOR 

1053 

001464 

012737 

001 520 

000004 


MOV 

#64$.a#ERRVEC ; 

.SET UP ERROR VECTOR 

1054 

001472 

012737 

177570 

001140 


MOV 

#DSUR.SWR 

.-SETUP FOR A HARDWARE SWICH REGISTER 

1055 

001500 

012737 

177570 

001142 


MOV 

#DD ISP. DISPLAY ; 

.AND A HARDWARE DISPLAY REGISTER 

1056 

001506 

022777 

177777 

1 77424 


CMP 

-M.iSWR 

.TRY TO REFERENCE HARDWARE SWR 

1057 

001514 

00" 01 2 




BNE 

66$ 

.BRANCH IF NO TIMEOUT TRAP OCCURRED 

1058 







.AND THE HARDWARE SWR IS NOT -1 

1059 

001516 

000403 




BR 

65$ ; 

.-BRANCH IF NO TIMEOUT 

1060 

001520 

012716 

001 526 


64$: 

MOV 

#65$. (SP) 

.SET UP FOR TRAP RETURN 

1061 

001524 

000002 




RTI 



1062 

001526 

012737 

000176 

001140 

65$: 

MOV 

ASWREG.SWR 

.-POINT TO SOFTWARE SWR 

1063 

001534 

012737 

0001 74 

001142 


MOV 

#DISPREG. DISPLAY 


1064 

1065 

1066 

001542 

012637 

000004 


66$: 

MOV 

(SP)+.a#ERRVEC ; 

.-RESTORE ERROR VECTOR 

001 546 

005037 

001202 



CLR 

$PASS 

; CLEAR PASS COUNT 

1067 

001552 

132737 

000200 

001215 


BIT8 

#APTSIZE.$ENVM 

.-TEST USER SIZE UNDER APT 

1068 

001560 

001403 




8EQ 

67$ 

;YES, USE NON-APT SWITCH 

1069 

001562 

Cl 2737 

001216 

001 1 40 


MOV 

#$SWREG,SWR 

;N0. USE APT SWITCH REGISTER 

1070 

001570 




67$: 




1071 





.SQTTL 

TYPE 

PROGRAM NAME 


1072 





.-.TYPE 

THE NAME OF THE PROGRAM IF 

FIRST PASS 

1073 

001570 

005227 

177777 



INC 

#-1 

.-FIRST TIME? 

1074 

001574 

001043 




BNE 

68$ 

.-BRANCH IF NO 

1075 

001576 

022737 

014450 

000042 


CMP 

#$ENDAD.3#42 

.-ACT-11? 

1076 

001604 

001437 




BEQ 

68$ 

.-BRANCH IF YES 

1077 

001606 

104401 

001654 



TYPE 

.69$ 

.-TYPE ASCIZ STRING 

1078 





. S8TTL 

GET VALUE FOR SOFTWARE SU 

ITCH REGISTER 

1079 

001612 

005737 

000042 



TST 

a#4 2 

;ARE WE RUNNING UNDER XXDP/ACT? 

1080 

001616 

001012 




BNE 

70$ 

.BRANCH IF YES 

1081 

001620 

123727 

001214 

000001 


CMP8 

$ENV.#1 

.-ARE WE RUNNING UNDER APT? 

1082 

001626 

001406 




BEQ 

70$ 

.-BRANCH IF YES 

1083 

001630 

023727 

001140 

000176 


CM P 

SW° ,#SWREG 

.SOFTWARE SWITCH REG SELECTED 1 

*084 

001636 

001005 




BNF 

71$ 

.BRANCH IF NO 


SEQ 0025 


CVDLAAO DLV11-J TEST MACY11 30G<1063) 
rvDLAB.PII 1 7-NOV-78 09:38 


N 2 

17-NOV-78 09:39 PAGE 27 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


SEO 0026 


1085 

001640 

104406 


GTSWR 

71$ 

; ; GE T 

SOFT-SUR SETTINGS 

1086 

001642 

000403 


BR 


AUTO-MODE INDICATOR 

1087 

001644 

112737 000001 

001134 70S: 

MOvB 

A1.1AUT0B 

; ; SE T 

1088 

001652 

7'$: 




OVER THE ASCIZ 

1089 

001652 

000414 


BR 

68$ 

;;GET 

1090 

; ;69$: 

.ASCIZ 

<CRLF>*CVDLAB0 

DLV11- 

J TEST*<CRLF> 

1091 

001704 


6 6$: 








v.wvl'mu i L j i rmv. i r \ rngt C u 

CV0LAfi.P1 1 17-NOV-78 09:38 GET VALUE FOR SOFTWARE SWITCH 


1092 

1093 

10% 001704 004737 

1095 

1096 001710 005037 

1097 001714 012737 

1098 001722 005037 

1099 001726 005037 

1100 

1101 001732 01270o 

1102 001736 004737 

1103 

1104 

1105 001742 

1106 001742 012137 

1107 

1108 001746 

1109 001746 011137 

1110 

1111 001752 

1112 001752 013737 

1113 001 760 

1114 001760 013737 

1115 001766 062737 

1116 001774 

1117 001774 013737 

1118 002002 062737 

1119 002010 

1120 002010 013737 

1121 002016 062737 

1122 002024 

1123 002024 012705 

1124 

1125 002030 012700 

1126 002034 077001 

1127 002036 

1128 002036 000005 

1129 002040 

1130 002040 005237 

1131 002044 

1132 002044 123727 

1133 002052 001003 

1134 002054 000137 

1 1 35 002060 

1 1 36 002060 000402 

1137 002062 

1 1 38 002062 

1139 002062 005037 

1140 002066 

H41 002066 


012700 

0K166 

000001 001206 

014164 

014170 

001100 LOOP: 

013620 

001254 
001256 

001254 001260 

001254 001262 
000002 001262 

001254 001264 

000004 001264 

001254 001266 
000006 001266 

001332 

001000 

001204 

014166 000001 
007000 

$1 : 

001102 


JSR PC. SIZE 

CLR PHASE 2 

MOV #1.$UNIT 

CLR CHAN 

CLR P1CNT 

MOV #STACK,SP 

JSR PC.CYCLC 


MOV (ADRS) + .DLADD 


MOV (ADRS).DLVEC 


MOV DLADD.RCSR 

MOV DLADD. RBUF 

ADD #2.R8UF 

MOV DLADD. TCSR 

ADD #4. TCSR 

MOV DLADD. TBUF 

ADD #6. TBUF 

MOV #R5STACK.R5 

MOV <r1000.R0 

SOB RO,. 

RESET 

INC $DEVCT 

CMP8 PHASE 2.# true 

BNE $1 

JMP MODTST 

BR $2 


CLR S r S TNM 


$ 2 : 


REGISTER 


SEO 0027 


.-SIZE THE BUS IF SDEVM = 0 
; INI T FOR TESTS 


RESET STACK POINTER 
SETUP MODULE AND CHANNEL 

ADRS +2 -> NEXT VECTOR 
;GET UNIT ADDRESS 
LET DLADD : (ADRS)* 

;GET UNIT VECTOR 
LET DLVEC := (ADRS) 

;RCSR = DLADD ♦ 0 

LET RCSR :- DLADD 

LET RBUF := DLADD ♦ #2 


LET TCSR : DLADD * #4 


LET TBUF : DLADD * #6 


LET h5 : <TR5STACK 


.•DELAY TO ALLOW PRINT TO FINISH 

.BEFORE RESET 

8RESET 

LET SDEVCT : SDEVCT * srl 
IFB PHASE 2 EQ #TRUE THEN 


; GO TO PHASE 2 TESTING 

ELSE 


LET STSTNM #0 


ENDIF 


CVOLAAO DLV11-J TEST MACY11 
CVDLAB.P11 1 7-NO V- 78 09:58 


002066 

002070 

002076 

002104 

002104 

002110 

002116 

002124 

002124 

002130 

002130 

002130 

002130 

002136 

002136 


002142 

002144 

002144 

002150 

002152 
002152 
002154 
002154 
002154 
002154 
002154 
002162 
002162 
002166 
002172 
0021 72 
002200 


300(1063) 17-N0V-78 09:39 PAGE 29 

T1 ADDRESSABILITY 

• ‘a************************************************************** 

• *TEST 1 ADDRESSABILITY 

■* THIS TEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL UNDER TEST 

RESPOND TO THEIR ADDRESSES. 


SEQ 0028 





9 

000004 



TST1 : 

SCOPE 



012737 

000002 

001160 


MOV 

A2.STIMES 

; ; DO 2 ITERATIONS 

012737 

000001 

001200 


MOV 

n.STESTN 

; ; SET TEST NUMBER IN APT MAIL BOX 


MOV 

DLADD,ADRS 

LET ADRS : = DLADD 

013701 

001254 






; SET UP INTERRUPT 

012737 

013610 

000004 


MOV 

AINTSRV.ERRVEC 


012737 

000340 

000006 


MOV 

APR7.ERRVEC+2 

0 

1 

>— 

LU 

005037 

001270 


$3: 

CLR 

I 

REPEAT 







BGNSlfi 

012737 

002136 

001110 


MOV 

A64S.SLPERR 

.•CLEAR FLAG 

LET INTFLAG : *0 

005037 

013616 



CLR 

INTFLAG 

.-READ FLAG 

005711 




TST 

SADRS 

IF INTFLAG NE *0 THEN 

005737 

013616 



TST 

INTFLAG 


001401 




BEQ 

$4 

; FATAL ERROR 







ERRDF 1 

104001 



$4: 

ERROR 

1 

END IF 







ENDSUB 

LET I :- I ♦ *2 

062737 

000002 

001 2 7 G 


ADD 

*2,1 

LET ADRS DLADD ♦ I 

013701 

001254 



MOV 

DLADD,ADRS 


063701 

001270 



ADD 

I ,ADRS 

UNTIL I EQ *8. 

023727 

001270 

000010 


CMP 

«*— • 

* 

oo 


001353 




BNE 










D 3 

CVDLAAO DLV11-J 

TEST 

MAC VI 1 

30G( 1063) 


1 7-N0V-78 09 

: 39 PAGE 30 

rvDLAB. 

P11 17-N0V-78 09:38 


T1 

ADDRESSABILITY 

1 186 








1187 

002202 

032777 

177476 

1 77050 


BIT 

#1 77476.3RCSR 

1188 

002210 

001401 




BEQ 

1$ 

1189 

002212 

104027 




ERROR 

27 

1190 








1191 

002214 

032777 

007400 

1 77040 

1$ 

: BIT 

#7400.SRBUF 

1192 

002222 

001401 




BEO 

2$ 

1195 

002224 

104030 




ERROR 

30 

1194 








1195 

002226 

032777 

177476 

1 77030 

2$ 

: BIT 

#1 77476. 3TCSR 

1196 

002234 

00K01 




BEQ 

35 

1197 

002236 

104031 




ERROR 

31 

1198 








1199 

002240 

032777 

1 77400 

177020 

3$ 

BIT 

#1 77400. aTBUF 

1200 

002246 

001401 




BEQ 

4$ 

1201 

002250 

104032 




ERROR 

32 

1202 








1203 

002252 

012737 

000006 

000004 

4$ 

MOV 

*6.ERRVEC 

1204 

002260 

005037 

000006 



CLR 

ERRVEC+2 


1205 


.-CHECK THAT ALL UNUSED BITS ARE 0 
;RCSR HAS UNUSED BITS SET 


SEQ 0029 


; R8UF HAS UNUSED BITS SET 

; T C SR HAS UNUSED BITS SET 

; TBUE HAS .’UNUSED BITS SET 
.•RESTORE 


SEO 0030 


1212 





; * T E S T 

2 

BREAK - TCSR 0 SET, CLEAR, RESET 

1213 





• * 


THIS BIT IS THE ONLY ONE IN THIS POSITION 

1214 





• * 

0 


THAT IS READ AND WRITE . 

1215 





***************************************************************** 

1216 

002264 

000004 



TST2: 

SCOPE 

#10,$TIMES ; ; DO 10 ITERATIONS 

1217 

002266 

012737 

0000' 0 

001160 


MOV 

1218 

1219 

1220 

00227A 

01273/ 

000002 

001200 


MOV 

*2,$TESTN ; ; SET TEST NUMBER IN APT MAIL BOX 

002302 






IF WRK NOTSETIN $USWR THEN 

1221 

002302 

032737 

000010 

001220 


BIT 

WRK.SUSUIR 

1222 

002310 

001001 




BNE 

$5 

1223 

002312 






EXIT ; BREAK NOT INSTALLED 

1224 

002312 

000452 




BR 

TST 3 ;;EXIT THIS TEST 

1225 

002314 






END IF 

1226 

002314 




$5: 



1227 








1228 







; SEE IF IT IS CLEAR 

1229 

002314 






B6NSIB 

1230 

002314 

012737 

002322 

001110 


MOV 

#64$.$LPERR 

1231 








1232 

002322 






IF WREAK SETIN 3TCSR THEN 

1233 

002322 

032777 

000001 

1 76734 


BIT 

WREAK.3TCSR 

1234 

002330 

001401 




BEQ 

$6 

1235 







; BREAK DID NOT RESET IN TCSR 

1236 

002332 






ERRHRD 2 

1237 

002332 

1 04002 




ERROR 

2 

1238 

002334 






ENDIF 

1239 

002334 




$6: 



1240 

002334 






ENDSU8 

1241 








1242 







; TRY TO SET BREAK BIT 

1243 

0023 34 






8GNSUB 

1244 

002334 

012737 

002342 

001110 


MOV 

*64$.$LPERR 

1245 

002342 






LET 3TCSR := STCSR SET. BY WREAK 

1246 

002342 

052777 

000001 

1767H 


BIS 

WREAK, 3TCSR 

1247 







; STUCK TO 0 

1248 

002350 






IF #0REAK NOTSETIN 3TCSR THEN 

1249 

002350 

032777 

000001 

1 76706 


BIT 

WREAK. 3TCSR 

1250 

002356 

001001 




BNE 

$7 

1251 







; BREAK DID NOT SET IN TCSR 

1252 

002360 






ERRHRD 3 

1253 

0C2360 

104003 




ERROR 

3 

1254 

002362 






ENDIF 

1255 

002362 




$7: 



1256 

002362 






ENDSU6 

1257 








1258 







; TRY TO CLEAR A SET BIT 

'259 

002362 






BGNSie 

1260 

002362 

012737 

002370 

001110 


MOV 

#l'$,$LPERR 






RESET 


SEQ 0051 


LET 3TCSR := 5TCSR CLR.8Y #8RE AK 

; SHOULD HAVE CLEARED 
IF #8REAK SETIN 3TCSR THEN 

; BREAK DID NOT CLEAR IN TCSR 
ERRHRD 4 

END IF 

END SUB 

IF RESET CLEARS IT 
BGNSUB 

LET 3TCSR 3TCSR SET. BY *8REAK 

; ISSUE BUS RESET 
BRESET 

IF #8REAK SETIN 3TCSR THEN 

; BREAK DID NOT RESET IN TCSR 
ERRHRD 5 

ENDIf 


END SIB 


^DLAAO 

TEST 

MACYll 

30G( 1063) 

1 7 -NOV- 78 09 

: 39 PAGE ^3 


f '/OLAB. 

PI 1 i 7 -NOV-78 

09:38 


T2 

BREAK - 

TCSR 0 SET. CLEAR. RESET SEQ 0052 

293 









1294 





• ••**»< 




1295 





* TEST 

3 

XMITIE - TCSR 

6 SET. CLEAR. RESET 

1296 





• • * ft * ft 




1297 

00244C 

000004 



TST3: 

SCOPE 



1298 

002442 

012737 

000010 

001160 


MOV 

#10.STJMES 

; ; DO 10 ITERATIONS 

1299 

002450 

012737 

000003 

001200 


MOV 

#3.stestn 

; ; S E T TEST NUMBER IN APT MAIL BOX 

1300 








; USE PRIORITY OF 7 

1301 

002456 





SETPRI 

»PR7 


1302 









1303 







; SEE 

I c IT IS CLEAR 

1304 

002470 







BGNSUB 

1305 

002470 

012737 

002476 

oomo 


MOV 

#65$.$LPERR 


1 506 









1307 

002476 







IF #XMI TIE SETIN 3TCSR THEN 

1308 

002476 

032777 

000^0 

’ 76560 


BIT 

fXMITIE.aTCSR 


1309 

002504 

001401 




BEQ 

$12 


1310 








; XMITIE DID NOT RESET IN TCSR 

1311 

002506 







ERRHRD 12 

1312 

002506 

104012 




ERROP 

12 


1313 

002510 







END IF 

1314 

002510 




$12: 




1315 

002510 







END SUB 

1316 









1317 







; TRY 

TO SET XMITIE BIT 

1318 

002510 







9GNSL8 

1319 

002510 

012737 

002516 

001110 


MOV 

#64$.SLPERR 


1520 

002516 







LET 3TCSR : 3TCSR SET. BY #XMITIE 

1321 

002516 

052777 

000100 

1 76540 


BIS 

fXMITIE.iTCSR 


1322 








; STUCK TO 0 

1323 

002524 







IF AfXMITIE NOTSETIN 3TCSR THEN 

1324 

002524 

032777 

000100 

1 76532 


BIT 

#XMITIE,aTCSR 


1325 

002532 

001001 




BNE 

$13 


1326 








; XMIT DID NOT SET IN TCSR 

1327 

002534 







ERRHRD 13 

1328 

002534 

104013 




ERROR 

13 


1329 

002536 







END IF 

1530 

002536 




$13: 




1331 

002536 







ENDSU8 

1332 









1533 







; TRv 

TO CLEAR A SET BIT 

1534 

002536 







BGNSUB 

1335 

002536 

012737 

002544 

oomo 


MOV 

*64$,$LPERR 


1 336 









1357 

002544 







LET «TCSR 3TCSR CLR.8Y #XMJTIE 

1558 

002544 

042777 

000100 

176512 


eic 

#XMI T IE.a T CSR 


1539 








; SHOULD HAVE CLEARFD 

1 340 

002552 







IF #XMITIE SETIN 3TCSR THEN 

’341 

002552 

032777 

000100 

1 76504 


BIT 

#WHTIE.a T CSR 


1342 

002560 

001401 




BEQ 

$14 


1343 








; XMIT DID NOT CLEAR IN TCSR 

1344 

002562 







ERRHRD 14 

345 

002562 

1040’4 




ERROR 

14 


' 346 

002564 







ENDIF 

’34 7 

002564 




$*4 : 




•348 

30256*. 







FNDSUB 


f^DLAAO DLV11-, TEST HACYll 30G(T063) 17-N0V-76 09:39 PAGE 34 

r V0LAfl.P1 1 17-M0V-78 09:38 T3 XMIT.'E - TCSR 6 


1 349 
1 351 

1351 002564 

1352 002564 012 7 37 002572 001110 

1353 

1354 00257^ 

1355 00257^ 052777 000100 ’ 7 6464 

1356 

1357 002600 

1358 002600 000005 

1359 002602 

1360 002602 032777 000100 176454 

1361 002610 00K01 

1562 

’363 002612 

1364 002612 ’ 040’ 5 

1565 002614 

1 366 0026H 

1 567 0026 1 4 


SET. CLEAR. RESET 


; MOW SEE IF RESET CLEARS IT 
BGNSUB 


A64S.SLPERR 


BIS #XMITIE.aTCSR 


RESET 

BIT #XMJ T IE .aTCSR 

BEQ $15 


ERROR 15 


LET aTCSR aTCSR SET. By #XMITIE 

; ISSUE BUS RESET 
BRESET 

IF #XMI TIE SETIM aTCSR THEM 


; KMIT DID MOT RESET IM TCSR 
ERRHRD 15 


EMDIF 


SEQ 0033 


EMDSLfi 


f vDLAAG DLVU-J TEST MAC Vi 1 

' V0LAB.P1 1 17-NO V-78 09:58 

<568 

1 

30G(1063) 

17-NOV-78 09 

T3 XMITJE 

I 3 

39 PAGE 35 
- TCSR 6 

SET. 

CLEAR. RESET 

< x>* 










1370 





; * T E S T 

4 

RCVRIE - RCSR 

6 

SET, CLEAR. RESET 

1571 





• * 


THIS BIT IS THE ONLY 

ONE IN THIS POSITION 

1372 

1 T7I 





• * 


THAT IS READ 

AND WRITF. 

1 5' 5 










1574 

002614 

000004 



TST4: 

SCOPE 




1375 

002616 

012737 

000010 

001160 


MOV 

#1 O.ITIMES 

;;D0 

10 ITERATIONS 

1376 

002624 

012737 

000004 

001200 


MOV 

#4.$TESTN 

; ; SE T 

TEST NUMBER IN APT MAR BOX 

1377 







; SEE 

IF IT IS CLEAR 

1378 

002632 








BGNSU8 

1379 

002632 

012737 

002640 

001 HO 


MOV 

#64$,$LPERR 



1380 










1381 

002640 








IF #RCVRIE SETIN 3RCSR THEN 

1382 

002640 

032777 

000100 

176412 


b r 

#RCVRIE. aRCSR 



1383 

002646 

001401 




BEQ 

$16 



1384 









; RCVRIE DID NOT RESET IN RCSR 

1385 

002650 








ERRHRD 35 

1386 

002650 

104035 




FRROR 

35 



1387 

002652 








ENDIF 

1388 

002652 




$ 6: 





1389 

002652 








ENDSLB 

1390 










1 391 







; TRY 

TO SET 

RfVRIE BIT 

1392 

002652 








BGNSLB 

1393 

002652 

012737 

002660 

001110 


MOV 

#64S.$IPERR 



1594 

002660 








LET aRCSR : aRCSR SET. BY #RCVRIE 

1395 

002660 

052777 

000100 

1 76372 


BIS 

#RCVRIE,SRCSR 



1396 









; STUCK TO 0 

1597 

002666 








IF #RCVRIE NOTSETIN aRCSR THEN 

1598 

002666 

032777 

000100 

1 76364 


BIT 

#RCVRIE .8RCSR 



1399 

002674 

001001 




BNE 

$17 



1400 









; RCVRIE DID NOT SET IN RCSR 

1401 

002676 








ERRHRD 36 

140? 

002676 

104036 




ERROR 

36 



1403 

002700 








ENDIF 

1404 

002700 




$ 1 7: 





1405 

002700 








END SUB 

1406 










1407 







; TRY 

TO CLEAR A SET BIT 

’408 

002 7 00 








BGNSUB 

1409 

002700 

012737 

002706 

001110 


MOV 

#64 $.$L PE RR 



1410 










1411 

002706 








LE T aRCSR 3RCSR CLR.BV #RCVRIE 

141? 

002706 

042777 

000100 

1 7 6344 


BIC 

#RCVRIE,SRCSR 



141 5 









; SHOULD HAVE CLEARED 

1414 

002714 








IF #RCVRIE SETIN aRCSR THEN 

1415 

002714 

032777 

000100 

176336 


BIT 

#RCVRIE.BRCSR 



1416 

002722 

001401 




BEQ 

S2C 



1417 









; RCVRIE DID NOT CLEAR IN RCSR 

1418 

002724 








ERRHRD 37 

1419 

002724 

104037 




ERROR 

37 



’4?0 

002726 








ENDIF 

14?’ 

002726 




520: 





1422 

002726 








ENDSU6 

H? 3 











SCO 0054 
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1424 

1425 002726 

1426 002726 012737 002734 001110 

1427 

1428 002734 

1429 002734 052777 000100 176316 

1430 

1431 002742 

1432 002742 000005 

1433 002744 

1434 002744 032777 000100 176306 

1435 002752 001401 

1436 

1437 002754 

1438 002754 104040 

1439 002756 

1440 002756 

1441 002756 


#64$,SLPERR 


ARCVRIE.SRCSR 


RESET 

BIT ARCVRIE , SRC SR 

8EQ *21 


ERROR 40 


j SET. CLEAR. RESET 

; NOW SEE IF RESET CLEARS IT 
BGNSUB 


LET SRCSR := SRC SR SE T .0V #RCVRIE 

; ISSUE BUS RESET 
BRESET 

IF #RCVRIE SE T IN SRCSR THEN 


; RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40 


END IF 


SEu 0035 


END sue 
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SET. CLEAR. RESET 


SEO 0036 


1 442 

1443 

1444 

1445 

1446 002756 000004 

1447 00276G 012737 000010 001160 

1448 002766 012737 000005 001200 

1449 

1450 002774 

1451 002774 012737 003002 001110 

1452 

1453 003002 

1454 003002 032777 000200 176254 

1455 003010 001002 

1456 

1457 

1458 

1459 003012 

1460 003012 104042 

1461 

1462 003014 

1463 003014 000005 

1464 003016 

1465 003016 

1466 

1467 003016 


•TEST 5 


TST5: SCOPE 

MOV 


TEST THAT XMITRDY - TCSR 7 - IS SET BY INI T 


#10,$TIMES 

A5.STESTN 


#64S.$LPERR 


#XMI TRDY.3TCSR 

$22 


; ; DO 10 ITERATIONS 
; ; SE T TEST NUMBER IN APT MAIL BOX 


BGNSUB 


ERROR 42 


RESET 


AXMITRDY NOTSETIN <*TCSR THEN 


.•RESET SHOULD HAVE SET BIT. 

.-XMITRDY DID NOT SET IN TCSR (AFTER RESE 
ERRHRD 42 

.-ISSUE ANOTHER RESET 
BRESET 


ENDIF 


ENDSLfc 


.•ALLOW LOOPING ON ERROR 


CVDLAAO DLV11-J 

TEST 

MACY11 

30G( 1063) 

1 7-N0V-78 09 

•39 PAGE *$8 5 


CVDLAB. 

P11 17-N0V-78 09:38 


T5 

TEST THAT XMITRDY - TCSR 

7 - IS SET BY INI T SEQ Ol 5 ’ 

1468 









1469 





• •***»« 

********* 

****************** 


1470 





.••TEST 

6 

TEST THAT XMIT RDY - TCSR 7 - CLEARS I 

1471 





• * 


WHEN TBUF IS LOADED WITH A CHARACTER 

14 72 





• * 


AND THAT IT SETS 

WITHIN A REASONABLE AMOUNT OF TIME. 

1473 





-•*************************************************************** 

i 1474 

003016 

000004 



TST6: 

SCOPE 



1475 

003020 

012737 

000010 

001160 


MOV 

#10,$TIMES 

;D0 10 ITERATIONS 

1476 

003026 

012737 

000006 

001200 


MOV 

A6.STESTN 

.-SET TEST NUMBER IN APT MAIL BOX 

1477 









1478 

003034 







IF CONSOL EQ #TRUE THEN 

1479 

003034 

023727 

013604 

000001 


CMP 

CONSOL.# TRUE 


1480 

003042 

001001 




BNE 

$23 


1481 

003044 







EXIT 

1462 

003044 

000521 




BR 

TST7 

.-EXIT THIS TEST 

1483 

003046 







ENDIF 

1484 

003046 




S23: 




1485 









1486 

003046 







LET PASS := #0 ; INI T COUNT OF TIMES THRU 

1487 

003046 

005037 

003302 



CLR 

PASS 


1488 

003052 







LOOP ; START OF LOOP 

1489 

003052 




$24: 




1490 








; MAX OF 2 TIMES THRU 

1491 

003052 







LET ERRORFLAG : #C 

1492 

003052 

005037 

003304 



CLR 

ERRORFLAG 


1493 

003056 







LET EXITFLAG : #0 

1494 

003056 

005037 

003306 



CLR 

EXITFLAG 


1495 







; LOAD TBUF WITH ONE CHARACTER 

1496 







; WAIT FOR READY TO SET 

1497 







; (SHOULD BE 

VERY SHORT WAIT 

1498 







; SINCE UART 

DOLRLE BUFFERS ITS INPUT) 

1499 









1500 








.-SEND A CHARACTER 

1501 

003062 







LET iTBUF :B- #0 

1502 

003062 

105077 

1 76200 



CLR8 

a TBUF 


1503 








.-WAIT A MAXIMUM 

150. 








;0F 50 MSEC FOR 

1505 








;XMI T RDY TO SET IN TCSR 

1506 

003066 







CALL TIMER IN <#500.#XMI TRDY , TCSR.#SET> 

1507 

003066 

010546 




MOV 

R5,-(SP) 


1508 

003070 

012745 

177777 



MOV 

#SET,-(R5) 


1509 

003074 

013745 

001264 



MOV 

TCSR,-(R5> 


1510 

003100 

012745 

000200 



MOV 

#XMI TRDY ,-(R5) 


1511 

003104 

012745 

000500 



MOV 

#500, -(R5> 


1512 

003110 

004737 

012446 



JSR 

PC, TIMER 


1513 

003114 

012605 




MOV 

(SP)*,R5 


1514 








.•TIMER RETURNS AN ERROR IF BIT DID 

1515 








;NOT MEET CONDITION WITHIN TIME LIMIT 

1516 

003116 







IF .ERROR THEN 

1517 

003116 

103003 




BCC 

$26 


1518 








;XMIT RDY DID NOT SET IN TCSR 

1519 

003120 







ERRHRD 66 

1520 

003120 

104066 




ERROR 

66 


1521 

003122 

000137 

003310 



JMP 

TST7 


1522 

003126 







ENDIF 

1523 

003126 




$26: 





CVDLAAO DLV11-J TEST MACY11 30G<1063) 
CVOLAB.P11 17-NOV-78 09:38 

1 524 003126 105077 1 761 34 

1525 003132 105777 176126 

1526 003136 100375 

1527 

1528 
■*529 

1530 

1531 

1532 003140 

1533 003140 105077 176122 

1534 003144 000240 

1535 

1536 

1537 003146 

1538 003146 032777 000200 1761 10 

1539 003154 001404 

1540 

1541 

1542 003156 

1543 003156 012737 177777 003304 

1544 

1545 

1546 003164 

1547 003164 000416 

1548 003166 

1549 

1550 

1551 

1552 003166 

1553 003166 010546 

1554 003170 012745 177777 

1555 >03174 013745 001264 

1556 003200 012745 000200 

1557 003204 012745 001000 

1558 003210 004737 012446 

1559 003214 012605 

1560 003216 

1561 003216 103001 

1562 

1563 003220 

1564 003220 104070 

1 565 003222 

1 566 003222 

1567 003222 
1566 003222 

1569 U03222 

1570 003222 023727 003304 177777 

1571 003230 001013 

1572 003232 

1573 003232 005237 003302 

1574 003236 

1575 003236 023727 003302 000001 

1576 003244 003404 

1577 

1578 

1579 003246 


M 3 

17-NOV-78 09:39 PAGE 39 
T6 TEST THAT XMIT RDY - TCSR 7 


CLEARS 


SEQ 0038 


It: 


CLRB 

3T8UF 

.-SHIP 1 ’ST CHAR 

TSTB 

3 TCSR 

.-WAIT FOR RDY 

BPL 

1$ 

• 

0 

0 

LOAD TBUF WITH A 
CHECK IMMEDIATELY 
AND THEN WAIT FOR 

CLRB 

3T8UF 

NOP 

BIT 

#XMI TRDY .3TCSR 

BE 0 

$27 


MOV 

#SET, 

ERRORFLAG 


;SEND SECOND CHARACTER 
LET 3T8UF :8= #0 

GIVE IT TIME TO CLEAR 

; XMITRDY SHOULD HAVE CLEARED UPON 
; RECEIPT OF A CHARACTER 
IF #XMITRDY SETIN 3TCSR THEN 


; XMITRDY DID NOT CLEAR IN TCSR 
; WILL RESULT IN ERR 67 IF FAILS 2X 
LET ERRORFLAG := #SET 

; DEFER ERROR TYPEOUT 


$27: 


$31: 

$30: 


BR 


$30 


ELSE 


; WAI T A MAXIMUM 
;0F 100 MSEC FOR 
; XMI T RDY TO SET IN TCSR 
CALL TIMER IN <#1000. #XMITRDY. TCSR. #SET> 


MOV 

R5.-(SP> 


MOV 

#SET.-(R5) 


MOV 

TCSR,-(R5) 


MOV 

#XMITRDY,-(R5j 


MOV 

#1000, -(R5) 


JSR 

PC, TIMER 


MOV 

(SPH.R5 

IF. ERROR THEN 

BCC 

$31 

; XMI T RDY DID NOT SET IN TCSR 
ERRHRD 70 

ERROR 

70 

END IF 

END IF ; OF DEFERED ERROR CALI 

IF ERRORFLAG EG #SET THEN 

CMP 

ERRORFiAG,#SET 


BNE 

$32 

LET PASS := PASS ♦ #1 

INC 

PASS 

IF PASS GT #1 THEN 

CMP 

PASS,#1 


Bt E 

$33 

; CALL ERROR IF 2ND TRY 
; ON XMI T RDY NOT CLEARING 
ERRHRD 67 


CVDLAAO DLV11-J TEST MAC^I 
CVDLA8.P11 17-NOV-78 09:38 


30G(1063) 17-N0V-78 09:39 

T6 TEST THAT 


N 

PAGE 40 
XMI T RDY 


- TCSR 7 - CLEARS 


1580 

003246 

104067 



1581 

003250 




1582 

003250 

012737 

177777 

003306 

1583 

003256 




1584 

003256 




1585 

003256 




1586 

003256 

000403 



1587 

003260 




1588 

003260 




1589 

003260 

012737 

1 77777 

003306 

1590 

003266 




1591 

003266 




1592 

003266 




1593 

003266 

023727 

003306 

177777 

1594 

003274 

001401 



1595 

003276 




1596 

003276 

000665 



1597 

003300 




1598 

003300 




1599 

003300 

0004 C 3 



1600 

003302 

000000 



1601 

003304 

000000 



1602 

003306 

000000 





ERROR 

67 


MOV 

ASET. EXITFLAG 

$33: 



$32 : 

BR 

$34 


MOV 

ASET. EXITFLAG 

$34 : 

CMP 

BEQ 

EXITFLAG. ASET 
$25 

$25: 

BR 

P 4 

BR 

PASS: 0 
ERRORFLAG: 0 
EXITFLAG: 0 

TST 7 


LET EXJTFLAG := ASE I 
END IF 

ELSE ; NO ERROR 

LET EXITFLAG := ASET 
END IF 

EXIF EXITFLAG EO ASET 

ENDLOOP 

EXIT ; SKIP AROUND FLAG WORDS 
; ; EXI T THIS TEST 


SEQ 0039 


CVDLAB. 

P11 

7-NOV-78 

09:38 


T6 

TEST 

THAT XMIT RDY - TCSR 7 - CLEARS SEO 0040 

.603 








1604 





• ****** 



1605 





.•TEST 

7 

TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) 

1606 





* * 


RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 

1607 





* * 


AND THAT RESET CLEARS THE BIT. 

1608 





• ****** 

******** 


1609 

0033 1 0 

000004 



TST7: 

SCOPE 


1610 

003312 

012737 

000010 

001160 


MOV 

#10.$TIMES ; ; DO 10 ITERATIONS 

1611 

003320 

012737 

000007 

0G1200 


MOV 

#7,$TESTN ;;SET TEST NLMBER IN APT MAIL BOX 

161 c 

1613 

003326 






IF WRAP NOTSETIN $USWR OR CONSOL EO #TRUE THEN 

1614 

003326 

032737 

000020 

001220 


BIT 

WRAP.SUSWR 

1615 

003334 

001404 




BEQ 

$35 

1616 

003336 

023727 

01 3604 

000001 


CMP 

CONSOL. #TRUE 

1617 

003344 

001001 




BNE 

$36 

1618 

003346 




$35: 



1619 

003346 






EXIT 

1620 

003346 

000434 




BR 

TST10 ; ; E X I T THIS TEST 

1621 

003350 






END IF 

1622 

003350 




$36: 



1623 








1624 

003350 






BGNSUB 

1625 

003350 

012737 

003356 

001110 


MOV 

#64$.$LPERR 

1626 







; SEND A CHARACTER AND LET IT WRAP AROUND 

1627 








1628 

003356 






LET 3T8UF :8= #0 

1629 

003356 

105077 

175704 



CLR8 

a TBUF 

1630 








1631 







; WAIT A MAXIMUM OF 50 MSEC 

1632 







; FOR RCVR DONE TO SET IN 

1633 







; RCSR 

1634 

003362 






CALL TIMER IN <#500.#RCVRDONE .RCSR.#SET> 

1635 

003 3o2 

010546 




MOV 

R5.-CSP) 

1636 

003364 

012745 

177777 



MOV 

#SET.-(R5> 

1637 

003370 

013745 

001260 



MOV 

RCSR.-(R5) 

1638 

003374 

012745 

000200 



MOV 

#RCVRD0NE.-(R5) 

1639 

003400 

012745 

000500 



MOV 

#500. -(R5) 

1640 

003404 

004737 

012446 



JSR 

PC. TIMER 

1641 

003410 

012605 




MOV 

( SP) ♦,R5 

1642 








1643 







.•DIDN’T SET IN TIME 

1644 

003412 






IF. ERROR THEN 

1645 

003412 

103001 




BCC 

$37 

1646 







; RCVRDONE DID NOT SET IN RCSR 

1647 

003414 






ERRHRD 71 

1648 

003414 

104071 




ERROR 

71 

1649 

003416 






END IF 

1650 

003416 




$37: 



1651 








1652 

003416 






ENDSUB 

1653 








1654 

003416 






BGNSUB 

1655 

003416 

012737 

003424 

001110 


MOV 

#64$.$LPERR 

1656 







; NOW THAT IT IS SET SEE IF IT CAN BE RESET 

1657 

003424 






BRESET 

1658 

003424 

000005 




RESET 
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1659 

1660 003426 

1661 003426 032777 000200 175624 

1662 003434 001401 

1663 

1664 003436 

1665 003436 104072 

1666 003440 

1667 003440 

1668 003440 


TEST THAT OUTPUTTING A CHAP FROM T8UF (WITH WRAP CONNECTED) 


SEO 0041 


tfRCVRDONE .3RCSR 
$40 


IF #RCVRD0NE SET IN 3RCSR THEN 


; RCVRDONE DID NOT RESET IN RCSR. 
ERRHRD 72 


ERROR 


ENDIF 


END SUB 


0 4 
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SEO 00V 


003440 

003442 

003450 

003456 

003456 

003464 

003466 

003474 

0C3476 

003476 

003476 

003500 

003500 

003500 

003500 


003506 

003506 


003512 


000004 

012737 000010 
012737 000010 


032737 000020 
001404 

023727 013604 

001001 


•TEST 10 


TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 


TST10: SCOPE 
001160 MOV 

001 200 MOV 


001220 


000001 


A10,$TIMES 

A10.$TESTN 


AWRAP,$USWR 

$41 

CONSOL .ATRUE 
$42 


000433 


012737 003506 001110 


105077 175554 


TST11 


; ;D0 10 ITERATIONS 
; ; SET TEST NUMBER IN APT MAIL BOX 

IF AWRAP NOTSETJN $USWR OR CONSOL EO A TRUE THEN 


EXIT 

; ;EXIT THIS TEST 
END IF 


BGNSUB 

#64$.$LPERR 

; OUTPUT A CHARACTER AND WAIT FOR XMITRDY TO SET. 


3T8UF 


; OUTPUT A CHARACTER 
LET 3TBUF :B- AO 


; WAIT MAXIMUM OF 500 MSEC 
; FOR RCVRDONE TO SET IN 
; RCSR 

CALL TIMER IN <#500. ARC VRDONE .RCSR, ASET > 


1699 

003512 

010546 


MOV 

R5,-(SP) 


1700 

003514 

012745 

177777 

MOV 

ASET.-(R5) 


1701 

003520 

013745 

001260 

MOV 

RCSR,~(R5) 


1702 

003524 

012745 

000200 

MOV 

ARCVRDONE, -(R5) 


1703 

003530 

012745 

000500 

MOV 

A500.-(R5) 


1704 

003534 

004737 

012446 

JSR 

PC. TIMER 


1705 

003540 

012605 


MOV 

(SP) * ,R5 


1706 






; ?ID IT BECOME READY? 

1707 

003542 





IF. ERROR THEN 

1708 

003542 

103001 


BCC 

$43 


1709 






.-RCVRDONE DID NOT SET IN RCSR 

1 71C 

003544 





ERRHRD 25 

1711 

003544 

104025 


ERROR 

25 


1712 






; SET IT BACK TO CONTINUE 

1713 

003546 





ENDIF 

1714 

003546 



$4 3: 



1715 

003546 





ENDSUB 

1716 







1717 





;NOW THAT IT IS 

SET LETS SEE IF SETTING 

1718 





.•READER ENABLE 

CLEARS RCVFuaJNE 


003546 

003546 

003554 

003554 

003562 


052777 000001 175504 

032777 000200 175476 
001401 


ARDRRUN.3RCSP 

AFT VRDONE. 3RCSR 
$44 


LET 3RCSR := SRC SR SET. BY ARDRRJY 
IF ARCVRDONE SETIN SRCSR THEN 




\/OLAAO DLVU-J TEST MACY11 30G(1063) 
VOLAB.PT 1 17-NOV-78 09:38 


E 4 

1 7-NOV-78 09:39 PAGE 44 

T 1 0 TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 


1725 

1726 003564 _ 

1727 003564 104026 ERROR 26 

1728 

1729 003566 

1 730 003566 144 : 


;RCVRD0NE DID NOT CLEAR IN RCSR 
ERRHRD 26 

; SET IT BACK TO CONTINUE 
END IF 


SEO 0043 


\ 


F 4 

C^DLAAO DLV11-. T E ST MACYll 306(1063) 17-N0V-78 09:39 PAGE 45 _ 

r VOL A8.P1 1 1 7-NQV-78 09:38 T10 TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE SEO 0044 


173? 





***************************************************************** 

1733 





; *TEST 11 

TEST THAI RCVRDONE IS CLEARED BY READING R8UF 

1734 





*********************************************************** ****** 

1735 

003566 

000004 



TST11: SCOPE 


1736 

003570 

012737 

000010 

00’ 160 

MOV 

#10.$TIMES ; ; DO 10 ORATIONS 

1737 

003576 

012737 

oooon 

001200 

MOV 

#11,$TESTN ; ; SET TEST NUMBER IN APT MAIL BOX 

1738 







1739 

003604 





IF #WRAP NOTSETIN $USWR OR CONSOL EO #TRUE THEN 

1740 

003604 

032737 

000020 

001220 

BIT 

#WRAP.$USWR 

1741 

003612 

001404 



BEQ 

$45 

1742 

003614 

023727 

01 3604 

000001 

CMP 

CONSOL. #TRUE 

1743 

003622 

OOlOOi 



BNE 

$46 

1744 

003624 




$45: 


1745 

003624 





EXIT 

1746 

003624 

000432 



BR 

TST12 ; .EXIT THIS TEST 

1747 

003626 





END IF 

1748 

003626 




$46: 


1749 







1750 

003626 





BGNSUB 

1751 

003626 

012737 

003634 

001110 

MOV 

#64$.$LPERR 

1752 






; OUTPUT A CHARACTER AND WAIT FOR RCVRDONE TO SET. 

1753 







1754 






; OUTPUT A CHARACTER 

1755 

003634 





LET STBUF :B- #0 

1756 

003634 

105077 

175426 


CLR8 

STBJF 

1757 






; WAIT MAXIMUM OF 500 MSEC 

1758 






; FOR RCVRDONE TO SET IN 

1759 






; RCSR 

1760 

003640 





CALL TIMER IN <#500, #RCVRDONE .RCSR. #SET> 

1761 

003640 

010546 



MOV 

R5,-(SP> 

1762 

003642 

01274 5 

177777 


MOV 

#SET.-(R5) 

1763 

003646 

013745 

001260 


MOV 

RCSR.-CR5) 

1764 

003652 

012745 

000200 


MOV 

#RCVRD0NE.-(R5> 

1765 

003656 

012745 

000500 


MOV 

#500, -(R5) 

1766 

003662 

004737 

012446 


JSR 

PC. TIMER 

176? 

003666 

012605 



MOV 

(SP) ♦ ,R5 

1768 






; DID IT BECOME READY? 

1769 

003670 





IF. ERROR THEN 

1770 

003670 

103001 



BCC 

$47 

1771 






.-RCVRDONE DID NOT SET IN RCSR 

1772 

0036 72 





ERRHRD 73 

1773 

003672 

104073 



ERROR 

73 

1774 






; SET IT BACK TO CONTINUE 

1775 

003674 





ENDIF 

1776 

003674 




$4 7 : 


1777 

003674 





ENDSUB 

1778 







1779 






; NOW THAT IT IS SET LETS SEE IF READING THE 

1780 






; BUFFER CLEARS RCVRDONE. 

V81 







1782 






.-READ BUFFER 

1 783 

003674 





LET RO :8= SRBUF 

1784 

003674 

1 1 7700 

175362 


M0V8 

SRB JF.RO 


1785 

1786 003700 IF #RCVRDONE SE TIN SRC SR then 


G 4 
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^DLAELPII 17-NOV-78 09:38 Til TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


SEO 0045 


787 003700 032777 000200 175352 

1788 003706 001401 

1789 

1790 003710 

1791 003710 ’04074 

1792 

1793 003712 
179a 0037 1 2 


BIT 0RCVRDONE ,3RCSR 

BEQ $50 

ERROR 74 

$ 50 : 


; RCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 74 

; SET IT BACK TO CONTINUE 
ENDJF 


H 4 
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1 795 

1796 


1796 

1797 





• •****! 

; *TEST 

1? 

TEST THE OVERRUN i ERROR BITS - RBUF 14 

1 798 








1799 

0037 1 2 

000004 



TST12: 

SCOPE 


1800 

003714 

012737 

000010 

001160 


MOV 

#10.$TIMES ; ; DO 10 ITERATIONS 

1801 

003722 

012737 

0000’ 2 

001200 


MOV 

ATI 2.STESTN ; ; SET TEST NUMBER IN APT MAIL BOX 

180? 








1803 

003730 






IF CONSOL EQ #0 THEN 

1804 

003730 

005737 

01 3604 



TST 

CONSOL 

1805 

003734 

001007 




BNE 

$51 

1806 

003736 






IF *WRAP SETIN SUSWR THEN 

1807 

003736 

032737 

000020 

001220 


BIT 

AWRAP.SUSWR 

1808 

003744 

OOHOI 




BEQ 

$52 

1809 







;; NULL EXECUTE TEST 

1810 

003746 






ELSE 

1811 

003746 

0004C1 




BR 

$53 

181? 

005750 




$52: 



1813 

003750 






EXIT 

1814 

003750 

000524 




BR 

TST13 ; ; E X I T THIS TEST 

1815 

003752 






ENDIF 

1816 

003752 




$53: 



’81 7 

003752 






ELSE 

1818 

003752 

000401 




BR 

$54 

1819 

003754 




$5’: 



1820 

003754 






EXIT 

1821 

003754 

000522 




BR 

TST13 ; . EXIT THIS TEST 

1822 

003756 






END IF 

1823 

003756 




$ c 4 : 



1824 








1825 








1826 








1827 

003756 






8GNSUB 

1828 

003756 

012737 

003^64 

001110 


MOV 

*64$,$LPERR 

1829 







.•OUTPUT ? CHARACTtRS 

1830 







.-THIS SHOULD AN CAUSE OVERRUN ERROR. 

1831 








183? 







.•OUTPUT 1 CHARACTER 

1833 

003764 






LET 3TBUF :B- #0 

1834 

003764 

105077 

175276 



CLRB 

BT8UF 

1835 








18.36 

G03770 






CALL TIMER IN <#500.*RCVRDONE .RCSR.#SET> 

1837 

003770 

010546 




MOV 

R5.-CSP) 

1838 

003772 

012745 

1 77777 



MOV 

#SET,-(R5) 

1839 

003776 

013745 

001260 



MOV 

RCSR.- f R5) 

1840 

004002 

012745 

000200 



MOV 

*RCVRD0NE.-(R5> 

1841 

004006 

012745 

000500 



MOV 

M 500.-CR5) 

1842 

004012 

004737 

012446 



JSR 

PC. TIMER 

1843 

004016 

012605 




MOV 

(SP)*.R5 

1844 








1845 







.-DID IT SET IN TIME? 

1346 

004020 






If .ERROR THEN 

’847 

004020 

1030C1 




B r C 

$55 

’84 8 







.-RCVRDONE DID NOT SET IN RCSR 

1849 

00402? 






FRRHRD 16 

*850 

004022 

’04016 




ERROR 

1 6 


SEO 0046 


CVDLAAO DIV11-J TEST 
r VDtAB.P1 1 17-NQV-78 

T851 004024 

1852 004024 


004024 

004024 

004030 

004030 

004032 

004036 

004042 
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SCO 0047 


004044 

004044 


004050 

004050 

004054 

004056 

004056 


004060 

004060 

004062 

004062 

004062 


004062 

004062 

004070 

004070 

004074 


004076 

004076 


004100 

004100 

004102 

004102 

00410? 

004102 

004102 


012737 

032704 

001002 


104102 


000450 


004070 

100000 


001110 


ENDIF 


105077 

175236 

CLR8 

3TBUF 

010546 


MOV 

R5,-(SP) 

012745 

000454 

MOV 

#300.. -(R5 

004737 

01 2620 

JSR 

PC. WAIT 

01 2605 


MOV 

(SP)*.R5 

017704 

1752V 

MOV 

3RBUF.R4 

032704 

040000 

BIT 

#0RERR.R4 

001002 


8NE 

$56 

*04101 


ERROR 

101 

000460 


BR 

TST13 


.•OUTPUT 2ND CHARACTER 
LET 3T8UF :0r #0 

; L E T OVERRUN HAPPEN 
WAITMS 300. 


.-READ BUFFER AND ERROR BITS 
LET R4 :- 3RBUF 


; I T DIDN'T SET 
IF #ORERR NOT SET IN R4 THEN 


; ORE RR DID NOT SET IN R0UF 
ERRHRD 101 


;N0 USE COMPOUNDING ERRORS 
EXIT 


;;EXIT THIS TEST 
ENDIF 

ENDSUB 


;NOW SEE IF ERROR BIT SET WITH OVERRUN FRROR: 

BGNSUB 


#64$.SLPERR 

#ERR0R.R4 

$57 


ERROR 102 


TST1 3 


IF TERROR NOTSETIN R4 THEN 


.-ERROR DID NOT SET IN RBUF 
ERRHRD 102 


.--WHEN ORERR SET. 
;GET OUT NOW. 

EXIT 

; ; E X I T THIS TEST 
ENDIF 

ENDSUB 


012737 004110 001110 


BGNSLB 

#64$.$LPERR 

.•CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 


004110 


IF #ORE RR NOTSETIN 3R8UF THEN 


CVDLAAO DLV11-J 

TEST 

MACYll 

30G(1063) 

17- 

-NOV- 78 09: 

J 4 

39 PAGE 49 


RBUF 14 

CVDLAB.P11 17-NOV-78 09:38 


T12 

TEST THE 

OVERRUN & ERROR 

BITS - 

1907 

004110 

032777 

040000 

175144 


BIT 

#ORERR.SRBUF 



1908 

1909 

1910 

004116 

001002 




BNE 

$60 


.•READING RBUF CLEARED ORERR. 

1911 

004120 






103 


ERRHRD 103 

1912 

004120 

104103 




ERROR 


; SK I P REST OF TEST 

1913 








1914 

004122 






TST13 


EXIT 

1915 

004122 

000437 




BR 

; ; E X I T 

THIS TEST 

1916 

004124 








END IF 

1917 

004124 




$60: 





1918 

004124 








END sue 

1919 










1920 

004124 








BGNSUB 

1921 

004124 

012737 

0041 32 

oomo 


MOV 

#64$.$LPERR 



1922 





.•READING RBUF ABOVE 

SHOULD ENABLE ERROR TO BE CLEARED 

1923 







;8Y NEXT TRANSFER. 


1924 

1925 

1926 







;NOW SEE IF 

THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 









.•SEND A CHARACTER AROUND. 

1927 

004132 








LET 3T8UF :&= #0 

1928 

004132 

105077 

175130 



CLRQ 

3T0UF 



1929 

004136 








CALL TIMER IN <#500. #RC VRDONE .RCSR.#SE 

1930 

004136 

010546 




MOV 

R5. -(SP) 



1931 

004140 

012745 

177777 



MOV 

#SET.-(R5) 



1932 

004144 

013745 

001 260 



MOV 

RCSR.-(R5) 



1933 

004150 

012745 

000200 



MOV 

#RC VRDONE ,-(R5) 



1934 

004154 

012745 

000500 



MOV 

#500. -(R5) 



1935 

004160 

00^737 

012446 



JSR 

PC. TIMER 



1936 

004164 

012605 




MOV 

(SPI*.R5 



1937 










1938 









;DID IT SET IN TIME? 

1939 

004166 








IF. ERROR THEN 

1940 

004166 

103001 




see 

$6' 



1941 








;RC VRDONE DID NOT SET IN RCSR 

1942 

004170 








ERRHRD 20 

194? 

004170 

104020 




ERROR 

20 



1944 

004172 








END IF 

194^ 

004172 




S6 1 : 





1946 










1947 

004172 








IF #ORERR SET IN 3R8UF THEN 

1948 

004172 

032777 

040000 

1 75062 


BIT 

#0RERR,3RBUF 



1949 

004200 

001402 




BEQ 

$62 



1950 









.ORERR DID NOT CLEAR IN RFUJF 

1951 

004202 








ERRHRD 104 

1952 

004202 

104104 




ERROR 

104 



1953 










1954 









.--AFTER RECEIVING ANOTHER CHAR 

1955 









.-SKIP AROUND REST 

1956 

004204 








EXIT 

1957 

004204 

000406 




BR 

TST13 

; ; E X I T 

THIS TEST 

1958 

004206 








ENDIF 

1959 

004206 




$62: 





’960 









IF #ERROR SET IN 3RBUF THEN 

1961 

004206 








1962 

004206 

032777 

100000 

'75046 


BIT 

#ERR0R.SRBuF 




SEQ 0048 


K 4 
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1963 004214 001401 BEQ 

1964 

1965 004216 

1966 004216 10410S ERROR 

1967 

1968 004220 

1969 004220 *63: 

1970 004220 

1971 00422C 

1972 00422G 000400 8R 


S63 

.•ERROR DID NOT CLEAR IN R8UF 
cRRHRD 105 
105 

ENDIF 

ENDSUB 

EXIT 

TST13 ;;EXIT THIS TEST 


SEQ 0049 


L A 
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SE Q 0050 


1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 


004222 

004224 

004232 

004240 

004240 


004244 

004244 

004250 

004250 

004254 

004260 

004264 

004264 

004272 

004272 

004274 

004300 

004304 

004310 

004314 

004320 


004322 

004322 


004330 


004 342 
004342 

004350 

004350 

004352 

004356 

004362 

004366 

00437? 

004376 


000004 

012737 000010 001160 
012737 000013 001200 


C05037 013616 


013703 001256 


062703 000004 


012723 

012713 


TEST 13 TRANSMITTER INTERRUPT LOGIC TEST 

LOGICALLY THIS IS 4 SEPARATE TESTS 

A) DOES TRANSMITTER INTERRUPT LOGIC WORK 

B) AT PRIORITY OF 0 

C) AND ONLY ONCE 

D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


013610 

000340 


012737 004272 001110 


010546 

012745 

013745 

012745 

012745 

004737 

012605 


177777 

001264 

000200 

000500 

012446 


042777 000100 174734 


052777 000100 174714 


010546 

012745 177777 

012745 013616 
012745 000001 
012745 000500 
004757 012446 
0V605 


3: SCOPE 
MOV 

MOV 

#10, $T IMES 
#13,$TESTN 

CLR 

INTFLAG 

MOV 

DLVEC. R3 

ADD 

#4.R3 

MOV 

MOV 

#INTSRV.(R3)* 

#PR7.(R3> 

MOV 

#64S.SLPERR 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

R5.-(SP) 

#SET.-(R5> 

TCSR.-(R5) 

#XMJTRDY,-(R5; 

#500.-<R5> 

PC. TIMER 
(SP)*.R5 

BIC 

#XMI TIE .BTCSR 

SETPRI #PRO 


BIS 

#XMI TIE .BTCSR 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

R5.-(SP) 
#SET.-(R5) 
#INTFLAG.-(R5) 
#1 ,-(R5) 

#500. -(R5) 

PC, TIMER 
(SP) ♦ ,R5 


; ; DO 10 ITERATIONS 
; ; SE T TEST NUMBER IN APT MAIL BOX 

; CLEAR ’INTERRUPT OCCURED’ FLAG 
LET INTFLAG : #0 


;GET VECTOR ADDRESS 
LET R3 :- DLVEC 

;F0R THE TRANSMITTER 
LET R3 := R3 ♦ #4 


; SE T VECTOR TO POINT TO TRANS. SRV AT PRI 


BGNSLB 


;; MAKE SURE THAT TRANSMITTER READY IS SET 
CALL TIMER IN <#500.#XMITRDY,TCSR.#SET> 


.•CLEAR INTERRUPT ENABLE 
LET BTCSR :~ BTC SR CLR.BY #XMI TIE 


;SET IT TO 0 


;NOW SET I.E. BIT 
LET BTCSR : BTCSR SET .BY #XMI T IE 


CALL TIMER IN <#500, *1 ,#INTFLAG.#SET> 


CVDLAAO OLV11-J TEST MA^ni 
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SEQ 0051 


2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 


2080 

2081 

2082 

2083 


004 4 OC 
004400 

004402 

004402 

004404 

004404 


004404 

004404 

004406 

004412 

004416 


004420 

004420 

004426 

004430 

004430 

004432 

004432 

004432 

004432 


1G3001 

104106 


010546 

012745 

004737 

012605 


023727 

003401 


104107 


;DID IT SET IN TIME 0 
IF. ERROR THEN 


$64: 


000764 

012620 


013616 000001 


BCC 

$64 

ERROR 

106 

MOV 

R5.-CSP) 

MOV 

A560.,-(R5) 

JSR 

PC. WAIT 

MOV 

(SP/+.R5 

CMP 

INTFLAG. A1 

8LE 

$65 

ERROR 

107 


.•INTERRUPT DID NOT OCCUR 
ERRHRD 106 


END IF 


;LET POSSIBLE 2'ND INTERR OCCUR 
WAITMS 500. 


;DID EXACTLY 1 INTERRUPT OCCUR 
IF INTFLAG GT AT THEN 


.•TRANSMITTER INTERRUPTED TWICE 
ERRHRD 107 


$65: 


2058 

004432 

012737 

004440 001110 

MOV 

A64$.$LPERR 

2059 

2060 
2061 

oo 

042777 

000100 174616 

81 C 

AXMITIE.aTCSR 

2062 

2063 

2064 

004446 

004446 

005037 

013616 

CLR 

INTFLAG 

2065 

2066 

2067 

2068 

004452 

004452 

005077 

1 746 1 0 

CLR 

aTBUF 

2069 

2070 

2071 

004456 

004456 

010546 


MOV 

R5.-(SP) 

2072 

004460 

012745 

177777 

MOV 

ASET ,-(R5) 

2073 

004464 

012745 

013616 

MOV 

AINTFLAG.-(R5) 

2074 

004470 

012745 

000001 

MOV 

Al ,-(R5) 

2075 

004474 

012745 

001000 

MOV 

A1000.-(R5) 

2076 

004500 

004737 

012446 

JSR 

PC. TIMER 

2077 

004504 

012605 


MOV 

(SP)*.R5 

2078 

2079 

004506 

103401 


8CS 

1$ 


END IF 
ENDSUB 

.-INTERRUPT WITHOUT INTERRUPT ENABLE SET 
8GNSUB 


.•CLEAR INTERRUPT ENABLE 
LET iTCSR 3TCSR CLR.BY AXMI TIE 

.•CLEAR 'INTERRUPT OCCURED' FLAG 
LET INTFLAG := #0 

;N0 INTERRUPTS SHOULD OCCUR. PSW STILL AT 0. 
;DARE IT TO HAPPEN 

LET 3TBUF :- AO 

;SEE IF INT FLAG EVER SETS 

CAlL TIMER IN <A1000,A1 ,AINTFLAG.ASET> 


004510 

004510 

004512 


104110 


;DID IT SET DURING TIMfcR? 

;BR IF NO 

;INTERR STILL OCCUPED WITH IE DISABLED 
ERRHRD 110 


1 $ : 


ERROR 110 



SEQ 005? 


N 4 

-■ 39 PAGE 53 

r TER INTERRUPT LOGIC TEST 


RECEIVER INTERRUPT LOGIC TEST 
THIS TEST COVERS ALL OF THE RECEIVER 
SIDE OF THE INTERRUPT LOGIC IN 
CHARACTER NODE. 


#10.$TIMES ; ; DO 10 ITERATIONS 

#14.STESTN ; ; SE T TEST NUMBER IN APT MAIL BOX 

IF #WRAP NOTSETIN SUSWR OR CONSOl EQ #TRUE ThFN 

#URAP.$USUR 

S66 

CONSOL.# TRUE 
S6 7 

TST15 ; EXIT TEST 

END IF 


.•CLEAR INTERRUPT OCCURED FLAG 
;SET UP RECEIVER INTER. VECTOR 
SETVEC DLVEC.#INTSRV.#PR7 

RI.-(SP) 

DLVEC.R1 
#INTSRV, (R1 ) ♦ 

#PR7.(R1) 

(SPH.R1 

.•PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 

BGNSUB 

#64$.SLPERR 

LET INTFLAG #0 

INTFLAG 

.•CLEAR INTERRUPTS 
LET 3RCSR 3RCSR CLR.BY #RCVRIE 

#RCVRIE .3RCSR 

.•CHANGE PRIORITY 
; . . TO 0 


.-SEND A CHARACTER 
LET 3TBUF :B= #0 

3TBUF 

•WAIT A MAXIMUM 
;0F 50 MSEC FOR 
;XMI T RDY TO SET IN TCSR 
CALL TIMER IN <#500,#RCVRD0NE .TCSR.#SET> 

R5.-CSP) 

#SlT.-(R5) 

TCSR.-(R5) 

#RCVRD0NE.-(R5) 

#500. -(R5) 

PC. TIMER 
(SP)+.R5 

;SET INTERRUPT ENABLE 
LET 3RCSR 3RCSR SET. BY #RCVRIE 


CVDLA8. 

P1 1 

1 7-N0V-7B 09:38 


T14 

RECEIVER INTERRUPT LOGIC TEST 


214 0 

004662 

052777 

000100 

174370 


dlS 

#RCVRIE,aRCSR 


2141 








;LET IT COME IN. 

2142 









2143 

0046 7 0 







CALL TIMER IN <*500. *1 ,*INTFlAG.*SE T> 

2144 

004670 

010546 




MOV 

R5.-(SP) 


2145 

004672 

012745 

177777 



MOV 

*SET.-(R5) 


2146 

004676 

012745 

013616 



MOV 

*INTFLAG.-(R5) 


2147 

004702 

012745 

000001 



MOV 

#1 ,-(R5) 


2148 

004706 

012745 

000500 



MOV 

*500, -(R5) 


2149 

004712 

004737 

012446 



JSR 

PC, TIMER 


2150 

004716 

012605 




MOV 

(SP)*,R5 


2151 









2152 








;DID IT SET IN TIME 1 

2153 

004720 







IF. ERROR THEN 

2154 

004720 

103001 




BCC 

$70 


2155 








.•INTERRUPT DID NOT OCCUR 

2156 

004722 







ERRHRD 111 

2157 

004722 

104-11 




ERROR 

111 


2158 

004724 







ENDIF 

2159 

004724 




$70: 




2160 








.-LET POSSIBLE 2*ND INTERR OCCUR 

2161 

004724 







WAITMS 500 

2162 

004724 

010546 




MOV 

R5,-(SP) 


2163 

004726 

012745 

000500 



MOV 

*500. -(R5) 


2164 

004732 

004737 

012620 



JSR 

PC. WAIT 


2165 

004736 

012605 




MOV 

(SP)*.R5 


2166 









2167 








.-EXACTLY 1 INTERRUPT? 

2168 

004740 







IF INTFLAG GT *1 THEN 

2169 

004740 

023727 

013616 

000001 


c 

INTFLAG,*1 


2170 

004746 

003401 




BLE 

$71 


2171 








.•RECEIVER INTERRUPTED TWICE 

2172 

004750 







ERRHRD 112 

2173 

004750 

104112 




ERROR 

112 


2174 

004752 







ENDIF 

2175 

004752 




$ 7 1 : 




2176 

004752 







END sue 

2177 









2178 









2179 









2180 









2181 









2182 









2183 







.•INTERRUPT WITHOUT IE 

SET. 

2184 

004752 







BGNSU8 

2185 

004752 

012737 

004760 

001110 


MOV 

*64$,$LPERR 


2186 









2187 








.•CLEAR INTERRUPT 

2 188 

004760 







LET 3RCSR :- BRCSR CLR.BY *RCVRIc 

2189 

004760 

042777 

000100 

174272 


BIC 

*rcvrie,brcsr 


2190 








.•CLEAR INTERRUPT MAG 

2191 

004766 







LET INTFLAG : = *0 

2192 

004766 

005037 

013616 



Cl R 

INTFLAG 


2193 








; SEND A CHARACTER 

2194 

004772 







LET arBUF :B= *0 

2195 

004772 

1050 77 

174270 



C.RB 

iTQUF 



SEQ 0053 
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SEO 0054 


004776 

004776 

005000 

005004 

005010 

005014 

005020 

005024 

005026 

005026 

005030 

005030 

005032 

005032 

005032 

005032 

005044 

005044 


010546 

012745 

012745 

012745 

012745 

004737 

012605 


103001 


104113 


000000 

013616 

000001 

000500 

012446 


MOV R5.-(SP) 

MOV #CLR.-(R5) 

MOV #INTFLAG,-<R5) 
MOV #1 ,-(R5) 

MOV #500, -(R5) 

JSR PC, TIMER 

MOV (SP) +.R5 


BCC $72 


; DARE IT 

CALL TIMER IN <#500. #1 ,#INTFLAG,#CLR> 


; D I D IT CLEAR IN TIME? 
IF. ERROR THEN 


ERROR 113 


; INTERR STILL OCCURED WITH IE DISABLED 
ERRHRD 113 


ENDIF 


000005 


ENDSUB 

SETPPI #PR7 .-RAISE CPU PRIORITY 

.-CLEAR THE WORLD 
BRESE T 

RESET 


f VDLAAO DLVH 
CVDLAB.P11 


D 5 
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SEQ 0055 


*TEST*15 * **TEST DATA WRAP AROUND: FLAG MODE 


2225 

005046 

000004 



TST15: 

SCOPE 

#1.$TIMES 

#15.$TESTN 

2226 

005050 

012737 

000001 

001160 


MOV 

2227 

005056 

012737 

000015 

001200 


MOV 

2228 

005064 






WRAP , $USWR 

2229 

005064 

032737 

000020 

0G1220 


BIT 

22 30 

005072 

001404 




BEQ 

$73 

2231 

005074 

023727 

013604 

000001 


CMP 

CONSOL ,#TRUE 

2232 

005102 

001001 



$73: 

BNE 

$74 

2233 

005104 






2234 








2235 

005104 






TST16 

2236 

005104 

000506 




BR 

2237 

005106 







2238 

005106 




$74: 



2239 

005106 







2240 

005106 

000005 




RESET 


2241 








2242 

005110 






R2 

2243 

005110 

005002 




CLR 

2244 

005112 

000401 




BR 

$75 

2245 

005114 




$76: 



2246 

005114 

005202 




INC 

R2 

2247 

005116 




$75: 


R2.#377 

2248 

005116 

020227 

000377 



CMP 

2249 

005122 

003077 




BGT 

$77 

2250 








2251 








2252 








2253 








2254 

005124 







2255 

005124 

010546 




MOV 

R5.-CSP) 

2256 

005126 

012745 

177777 



MOV 

#SET.-(R5) 

2257 

005132 

013745 

001264 



MOV 

TCSR.-CR5) 

2258 

005136 

012745 

000200 



MOV 

#XMITRDY,-(R' 

2259 

005142 

012745 

000500 



MOV 

#500. -(R5) 

2260 

005146 

004737 

012446 



JSR 

PC. TIMER 

2261 

005152 

012605 




MOV 

(SP1+.R5 

2262 

005154 







2263 

005154 

103002 




BCC 

$100 

2264 








2265 

005156 







2266 

005156 

104123 




ERROR 

123 

2267 

005160 







2268 

005160 

000460 




BR 

TST16 

2269 

005162 







2270 

005162 




$100: 



2271 








2272 








2273 

005162 







2274 

005162 

HO 277 

174100 



M0V8 

R2.ST8UF 


; ; DO 1 ITERATION 

; ; SET TEST NUMBER IN APT MAIL BOX 

IF WRAP NOTSETIN SUSWR OR CONSOL E 0 #TRUE THEN 


EXIT 

; ; EXI T THIS TEST 
END IF 

BRESET 


; CAN'T TEST WITHOUT A WRAP 


;8INARY COUNT PATTERN 
INCR R2 FROM #0 TO #377 BY #1 


; MAKE SURE IT'S READY 
CALL TIMER IN <#500,#XMITRDY.TCSR.#SET> 


IF. ERROR THEN 

; TRANSMITTER NEVER BECAME READY 
ERRHRD 123 


EXIT 

; .EXIT THIS TEST 
ENDIF 


005166 


; START IT ON ITS WAY 
LET 3T8UF :B= R2 

; NOW WAIT FOR RECIEVER DONE 

CALL TIMER IN <#500.#RCVRD0NE .RCSR.#SET> 


E 5 
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CVDLAB. 

P1 1 

1 7-NO V- 78 09:38 

T 1 5 

TEST DATA WRAP AROUND: 

2277 

005166 

010546 



MOV 

R5.-CSP) 

2278 

005170 

012745 

177777 


MOV 

#SET,-(R5) 

2279 

005174 

013745 

001260 


MOV 

RCSR.-CR5) 

2280 

005200 

012745 

000200 


MOV 

#RCVRD0NE,-(R5) 

2281 

005204 

012745 

000500 


MOV 

#500. -(R5) 

2282 

005210 

004737 

012446 


J SR 

PC. TIMER 

2283 

005214 

012605 



MOV 

(SP)*.R5 

2284 

005216 






2285 

005216 

10300? 



BCC 

$101 

2286 

005220 






2287 

005220 

104124 



ERROR 

124 

2288 







2289 

005222 






2290 

005222 

000437 



BR 

TST16 

2291 

005224 






2292 

005224 



$101: 



2293 







2294 







2295 

005224 






2296 

005224 

01 7703 

1 74032 


MOV 

3R8UF ,R3 

2297 







2298 

005230 






2299 

005230 

032703 

100000 


BIT 

#ERR0R.R3 

2300 

005234 

001401 



BEO 

$102 

2301 







2302 

005236 






2303 

005236 

104200 



ERROR 

200 

2504 

005240 






2305 

005240 



$102: 



2306 







2307 







2308 







2309 

005240 






2310 

005240 

020302 



CMP 

R3.R2 

2311 

005242 

001415 



BEO 

$163 

2312 

005244 






2313 

00524a 

032737 

000001 001220 


BIT 

#81 TO,$USWR 

2314 

005252 

001006 



8NE 

$104 

2315 

005254 






2316 

005254 

020227 

000200 


CMP 

R2.#200 

2317 

005260 

002002 



BGE 

$165 

2318 







2319 

005262 






2320 

005262 

104117 



ERROR 

117 

2321 

005264 






2322 

005264 

000416 



BR 

TST16 

2323 

005266 






2324 

005266 



$105: 



2325 

005266 






2326 

005266 

000402 



BR 

$106 

2327 

005270 



$104: 



2328 







2329 

005270 






2330 

005270 

104017 



ERROR 

17 

2331 

005272 






2332 

005272 

000413 



BR 

TST16 


FLAG MODE 


SEO 0056 


IF. ERROR THEN 
FRRHRD 124 

; RECIEVER NEVER BECAME READY 
EXIT 

; ;EXIT THIS TEST 
ENDIf 


.-RETRIEVE 
LET R3 := iRBUF 

.-CHECK FOR ERROR DURING TRANSFER 
IF #ERR0R SETIN R 3 THEN 


.-ERROR BIT SET IN HIGH BYTE OF RBUF 
ERRHRD 200 

ENDIF 


.•COMPARE DATA 
IF R5 NE R 2 THEN 


IF #81 TO NOTSETIN SUSWR THEN 


IF R2 LT #200 THEN 


.-DATA COMPARE ERR IN 7 BIT WORD 
ERRHRD 117 

EXIT 

.-.-EXIT THIS TEST 

ENDIF 

ELSE 


.-DATA COMP ERR IN 8 BIT WORD 
ERRHRD 17 

EXIT 


.-.EXIT THIS TEST 








F 5 

CVDLAAO DL VI 1 -J 

TEST 

MAC Yi 1 

30G(1063) 1 7-NO V- 78 

09 : 39 PAGE 58 

CVDLAB.P1 1 1 7-N0V-78 

09:38 

T15 

TEST 

DATA WRAP AROUND 

2333 

005274 






2334 

005274 



$106: 



2335 

005274 






2336 

005274 

000411 



BR 

$107 

2337 

005276 



$103: 



2338 

005276 

032737 

000001 

001220 

BIT 

#8IT0.$USWR 

2339 

005304 

001005 



BNE 

$110 

2340 

005306 

020227 

000177 


CMP 

R2.A177 

2341 

005312 

003407 



BLE 

$110 

2342 







2343 







2344 

005314 






2345 

005314 

10402? 



ERROF 

1 22 

2346 

005316 






2347 

005316 

000401 



BR 

TST16 

2348 

005320 






2349 

005320 



S1 10: 



2350 

005320 



$107: 



2351 

005326 






2352 

005320 

000675 



BR 

$76 

2353 

005322 



$/ / : 




: FLAG MODE 


SEO 0057 


END IF 

ELSE IF #81 TO NOTSETIN $USWR AND R2 GT M177 THEN 


.-GETTING 8 BITS ON 7 BIT XMJT 
.-MAKE SURE $USWR SE T UP CORRECTLY. 
ERRHRD 22 

EXIT 

;;EXIT THIS TEST 
END IF 


ENDINC ;R 2 


000004 

012737 

012737 

032737 

001404 

023727 

001002 


000001 

000016 

000020 

013604 


000137 005772 


C VDLAAO DLV11-- TEST MACY11 
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2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 
237? 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 


30G( 1063) 17-NOV-78 09:39 PAGE 59 

T15 TEST DATA WRAP AROUND: FLAG MODE 


; *TEST 16 TEST DATA WRAP AROUND: INTERRUP* MODE 


SEQ 0058 


005322 

005324 

005332 

005340 

005340 

005346 

005350 

005356 

005360 

005360 

005364 

005364 


001160 

001200 

001220 

000001 


TST16: SCOPE 
MOV 


$ 111 : 

$ 112 : 


#1,STJMES 

#16,$TESTN 

#WRAP.$USWR 

$111 

CONSOL. #TRUE 
$112 

TST17 


; ; DO 1 ITERATION 

; ; SET TEST NUMBER IN APT MAIL BOX 

IF AWRAP NOTSFTJN $USWR OR CONSOL EQ #TRUE THEN 


; E X I T TEST 
END IF 


2387 

2388 

2389 

2390 

005364 

005376 

005376 

013701 

001256 

SET PR I *PP0 

MOV 

DLVEC.Ri 

2391 

2392 

2393 

005402 

005402 

012721 

005664 

MOV 

#RE C , ( R 1 ) ♦ 

2394 

2395 

005406 

005406 

012721 

000340 

MOV 

#PR7,(R1 )♦ 

2396 

2397 

2398 

2399 

005412 

005412 

012721 

005626 

MOV 

ATRAN. (R1 i ♦ 

2400 

2401 

005416 

005416 

012711 

000340 

MOV 

#PR7,(R1 ) 

240? 

2403 

2404 

2405 

005422 

005422 

005037 

005622 

CLR 

ERRCNT 

2406 

240 7 

005426 

005426 

005037 

005662 

CLR 

DATA 

2408 

2409 

005432 

005432 

0327X7 

000001 001220 

BIT 

*8JT0.$OSWR 


THIS TEST WILL RUN BOTH TRANSMITTER AND 
9ECJEVER AT FULL SPEED TESTING 
THE ABILITY OF THE MODULE 

TO HANDLE INTERRUPTS FROM BOTH SIDES AT ONCE. 

DOUBLE BUFFERING IS NOT FULLY TESTED BECAUSE OF 
APT CONSIDERATIONS. I.E. ’BREAK’ FROM APT 
CAUSES OVERRUN ERRORS. THEREFORE TRANSMIT INTR IS 
ENABLED ONLY AFTER THE RECVR HAS OBTAINED THE LAST WORD 

THIS TEST WILL TRANSFER A MAXIMJ1 OF 400(8) 

CHARACTERS THROUGH THE MODULE. BUT IF AN ERROR 
IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 

.CHANGE PRIORITY 
;..T00 

;GET VECTOR ADDRESS 
LET R1 := DLVEC 

1VEC.R 1 

;RCVR VECTOR 
LET (R1)+ := #REC 

'REC.(RI)* 

LET (RD* := #PR7 

fPR7, (R1 ) ♦ 

.-POINT TO TRANSMITTER VECTOR 
;AND SET IT UP ALSO 
LET (R1>* :~ ATRAN 

fTRAN. (R1 >♦ 

lFT (R1) : <fPR7 


; CLEAR ERROR COUNTER 
LET ERRCNT := #0 

LET DATA : #0 ;XMI T DATA 

I f #8 1 TO NOTSETIN $USWR THEN 


H 5 
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fVDLAB.P1 1 17-N0V-78 09:38 T16 TEST DATA WRAP AROUND: 

2410 005440 00’004 BNE $1H 

2411 005442 

2412 005442 012737 000200 005624 MOV #200. NUMBER 

2413 005450 

2414 005450 000403 BR $114 

2415 005452 $113: 

24^6 005452 

2417 005452 012737 000400 005624 MOV #400. NUMBER 

2418 005460 

2419 005460 $i"4: 

2420 


2421 

005460 







2422 

005460 

000005 




RESET 


2423 








2424 








2425 

005462 







2426 

005462 

052777 

000100 

173574 


BIS 

#XMIfIE.aTCSR 

2427 








2428 

005470 







2429 

005470 

052777 

000100 

173562 


BIS 

#RCVRIE .3RCSR 

2430 








2431 








2432 








2433 

005476 







2434 

005476 




$115: 



2435 

005476 







2436 

005476 

023737 

005662 

005624 


IMP 

DATA. NUMBER 

2437 

005504 

001403 




BEO 

$116 

2438 

005506 

005737 

005622 



TST 

ERRCNT 

2439 

005512 

003771 




BLE 

$115 

2440 

005514 




$116: 




2441 

2442 

2443 

2444 005514 


2445 

005514 

042777 

000100 

173542 

BIC 

#XMJ TIE .STCSR 

2446 

005522 






2447 

C05522 

042777 

000100 

173530 

BIC 

#RCVRIE .3RCSR 

2448 

005530 






2449 

005530 

005737 

005622 


* C T 

ERRCNT 

2450 

005534 

001431 



BEU 

$117 

2451 

005536 






2452 

005536 

032737 

100000 

005770 

BIT 

#ERROR,RHLD 

2453 

005544 

001424 



be a 

$120 

2454 

005546 






2455 

005546 

032737 

040000 

005770 

en 

#ORERR.RHLD 

2456 

005554 

001402 



BEQ 

$121 

2457 







2458 

005556 






2459 

005556 

104220 



ERROR 

220 

2460 

005560 






2461 

005560 

0004 1 5 



BR 

$122 

2462 

005562 



$121: 



2463 

005562 

032737 

020000 

005770 

81 T 

#FRFRR.RHLD 

24C* 

005570 

00H02 



BEO 

$*23 


2*65 


INTERRUPT MODE 


SCO 0059 


LET NUMBER := #200 
ELSE 

LET NLMBER := #400 
END IF 

BRESET ;SET UP ALL REGISTERS 

.SET I.E. IN TRANSMITTER 
LET 3TCSR := 3TCSR SET.BV #XMITIE 

;AND RECEIVER 

LET 3RCSR := SRCSR SET.8V #RCVRIE 

;NOW WE WAIT 
REPEAT 

UN T IL DATA EQ NUMBER OR ERRCNT GT #0 


;NOW LETS CHECK. 

;TURN OFF ALL INTR ENABLE 

LET 3TCSR := 3TCSR CLR.BV #XMITIE 

LET 3RCSR := 3RCSR CLR.BY #RCVRIE 

IF ERRCNT NE #0 THEN 


IF #ERROR SET IN RHLD THEN 


IF #ORERR SET IN RHLD THEN 


.•OVERRUN ERROR 
ERRHRD 220 

else if #frerr se tin rhld then 


; r RAMI NG ERROR 


CVDLAAO DLV11-J TEST 
rvOLA8.P1! 1 7-NO V- 78 


MACY11 

09:38 


30G( 1 063) 17-NOV-78 

T16 TEST 


I 5 

09:39 PAGE 61 
DATA WRAP AROUND 


2466 

2467 

005572 

005572 

104221 


ERROR 

221 

2468 

2469 

005574 

005574 

000407 

$123: 

005770 

BR 

$124 

2470 

2471 

005576 

005576 

032737 010000 

BIT 

APE RR, RHLD 

2472 

005604 

001402 


BEO 

$125 

2473 

2474 

2475 

005606 

005606 

104222 


ERROR 

222 

2476 

2477 

005610 

005610 

00040’ 

$125: 

BR 

$126 

2478 

2479 

2480 

2481 

005612 

005612 

005612 

104024 

ERROR 

24 

2482 

2483 

2484 

2485 

2486 

2487 

005614 

005614 

005614 

005614 

005614 

005614 

000401 

$126: 

$124: 

$122: 

BR 

$127 

2488 

2489 

2490 

2491 

005616 

005616 

005616 

104120 

$120: 

ERROR 

120 

2492 

2493 

2494 

2495 

2496 

2497 

005620 

005620 

005620 

005620 

005620 

005620 

000464 

$' 27 : 

$117: 

BR 

TST1 7 

2498 

2499 

2500 

005622 

000000 

tRRCNT: 

0 


250 1 

005624 

000000 

N'WBER: 

0 



: INTERRUPT MODE 


SEO 0060 


ERRHRD 2?1 

ELSE IF APERR SETIN RHLD THEN 


.•PARITY ERROR 
ERRHRD 222 

ELSE 


.•UNKNOWN ERROR 
ERRHRD 24 

END IF 


tLSE 


.-DATA COMPARE ERROR 
ERRHRD 120 


ENDIF 

ENDIF 

EXIT ;SKIP OVER SUPPORT ROUTINES & STORAGE 
; ; E X I T THIS TEST 


CVOLAAO 0LV11-J TEST MACYll 
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2502 

2503 

2504 

30G( 10631 

' 1 7-NOV-78 

T16 TEST 

• 9 
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DATA WRAP AROUND: INTERRUPT MODE 

.•TRANSMIT INTERRUPT HANDLER 










2506 

005626 







BGNSRV TRAN 

2507 

005626 




TRAN: 




2508 

005626 







IF DATA NE NLMBER AND ERRCNT EO »0 THEN 

2509 

005626 

023737 

005662 

005624 


CMP 

DATA. NUMBER 


2510 

005634 

00H06 




BEQ 

*130 


2511 

005636 

005737 

005622 



TST 

ERRCNT 


2512 

005642 

001003 




BNE 

*130 


2513 








.-SHIP OUT WORD 

2514 

005644 







LET 3T8UF :- DATA 

2515 

005644 

015777 

005662 

173414 


MOV 

DATA.aTBUF 


2516 

005652 







END IF 

2517 

005652 




*130: 




2518 








.-STOP INTERR, NOT EXER DOUBL BUFFER 

2519 

005652 







LET aTCSR :- 3TCSR CLR.8Y #XMI TIE 

2520 

005652 

042777 

000100 

1 73404 


81 C 

#XMI T I E .STCSR 


2521 

005660 







ENDSRV 

2522 

005660 

000002 




RTI 



2523 









2524 

005662 

000000 



DATA: 

0 



2525 









2626 









2527 







.•RECEIVER INTERRUPT HANDLER 

CJCO 









2529 

005664 







BGNSRV REC 

2530 

005664 




REC: 




2531 








;GE T CHAR 

2532 

005664 







LET RHLD :~ SRBUF 

2533 

005664 

017737 

173372 

005770 


MOV 

aRBUF .RHLD 


2534 








.•CHECK ERROR 

2535 

005672 







If #ERROR SETIN RHLD OR RHLD NE DATA THEl 

2536 

005672 

032737 

100000 

005770 


BIT 

TERROR. RHLD 


2537 

005700 

001004 




BNE 

*131 


2538 

005702 

023737 

005770 

005662 


CMP 

RHLD. DATA 


2539 

005 710 

001411 




BFQ 

*132 


2540 

005712 




*131: 




2541 








.-STOP ALL INTERR PROC * GET OUT 

2542 

005712 







LET DATA := NLMBER 

2543 

005712 

013737 

005624 

005662 


MOV 

NUMBER, DATA 


2544 

005720 







LET 3RCSR := aRCSR CLR.BY #RCVRIE 

2545 

005720 

042777 

000100 

173332 


BIC 

#RCVRIE,aRCSR 


2546 

005726 







LET ERRCNT := ERRCNT ♦ #1 

2547 

005726 

005237 

005622 



INC 

ERRCNT 


2548 

005732 







ELSE 

2549 

005732 

000415 




BR 

*133 


2550 

005734 




*132: 




2551 

005734 







LET DATA := DATA ♦ #1 

2552 

005734 

005237 

005662 



INC 

DATA 


2553 

005740 







IF DATA EO NUMBER THEN 

2554 

005740 

023737 

005662 

005624 


CMP 

DATA. NUMBER 


2555 

005746 

001004 




BNE 

*134 


2556 

005750 







LET iRCSR : iRCSR r 1 R.BY #RCVRIE 

2557 

005 7S0 

042777 

0001 00 

173302 


BIT 

#RCVR1E.BR(SR 



SEO 0061 


' vDLAAO DLV11-J TEST MACYll 30GH063) 17-*0 v-78 09:39 PAGE 63 


T vdlab.pit 


17-NOV-78 09:38 


2558 005756 

2559 005756 000403 

2560 005760 

2561 

2562 005760 

2563 005760 052777 000100 173276 

25*4 005766 

25o5 005766 

2566 005766 

2567 005766 

2568 005766 

2569 005766 000002 


$134: 


$135: 

$133: 


TEST DATA WRAP AROUND: INTERRUPT MODE 


SEO 0062 


*XMJ TIE ,3TCSR 


.-ALLOW NEXT XMIT INTERR 

LET STCSR := iTCSR SET. BY #XMJT1E 


ENDIF 


ENDIF 


ENDSRV 


005770 000000 


RHlD: 


CVDLAAO DLV11-J TEST WACYl 1 
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2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 


005772 

005774 

006002 


006010 


000004 

012737 

012737 


000010 
00001 7 
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T16 TEST DATA WRAP AROUND: INTERRUPT MODE 


•-****************•********************************************** 
; *TEST 17 TEST BREAK DETECTION LOGIC 

;* TRANSMIT KNOWN CHAR WITH BREAK SET 

;* AND COMPARE RECEIVED WITH 0. 

FRAMING ERROR WILL ALSO BE CHECKED 
;* IF ERROR BITS ARE ENABLED. 

••A************************************************************** 

TST17: SCOPE 

MOV #10. $T IMES ; ; DO 10 ITERATIONS 

#1 7.STESTN ' ' 


SEO 0063 


001160 

001200 


2588 

006010 

032737 

000020 

001220 


BIT 

#WRAP.$USWR 

2589 

006016 

001404 




8EQ 

$136 

2590 

006020 

032737 

000010 

001220 


BIT 

#8RK.$USWR 

2591 

006026 

001003 




BNE 

$137 

2592 

006030 




$136: 



2593 

006030 

000137 

006502 



JMP 

TST20 

2594 

006034 







2595 

006034 

000406 




BR 

$140 

2596 

006036 




$137: 



2597 

006036 







2598 

006036 

023727 

013604 

00000 ' 


CMP 

CONSOL. #TRUE 

2599 

006044 

001002 




BNE 

$141 

2600 








2601 

006046 

0001 37 

006502 



JMP 

TST20 

2602 

006052 







2603 

006052 




$141 : 



2604 

006052 







2605 

006052 




$140: 



2606 

006052 







2607 

006052 

012737 

006060 

001110 


MOV 

#64$,$LPERR 

2608 








2609 

006060 







2610 

C06060 

005037 

006500 



CLR 

ERRCHK 

2611 








2612 

006064 







2613 

006064 

052777 

000001 

1 73 1 72 


BIS 

#8REAK,BTCSR 

2614 








2615 

006072 







2616 

006072 

012777 

000125 

173166 


MOV 

#125.BTBUF 

2617 








2618 

006100 







2619 

006100 

010546 




MOV 

R5.-ISP) 

2620 

006102 

012745 

177777 



MOV 

#SET,-(R5) 

2621 

006106 

013745 

001260 



MOV 

RC3R,-(R5) 

2622 

006112 

012745 

000200 



MOV 

#RCVRDONE ,-TR5) 

2623 

006116 

012745 

000500 



MOV 

#500. -<R5) 

2624 

006122 

004737 

012446 



J SR 

PC. TIMER 

2625 

006126 

012605 




MOV 

(SP1+.R5 

2626 

006130 







2627 

006130 

103001 




BCC 

$' f 2 


;SET TEST NUMBER IN APT MAIL BOX 
DONT DO THIS TEST IF ’BREAK’ GENERATION 
ENABLED. ELSE WILL HALT TO CONSOLE ODT. 

DO IF BREAK ’DETECTION’ IS ENABLED. 

IF #WRAP NOTSETIN $USWR OR #8RK NOTSETIN tUSwR THEN 


;EXIT TEST 


IF CONSOL EQ #TRJE THEN 


.-CAN’T TEST CONSOLE 
.-EXIT TEST 
END IF 


END IF 
BGNSUB 


LET ERRCHK := #0 


. CLEAR ERROR WORD 


.-SET BREAK 81 T 

LET BTC SR :- BTCSR SET. BY #8REAK 

; NON-ZERO CHAR. ’*’ 

LET ST8UF :- #125 

.-WAIT FOR DONE 

CALL TIMER IN <#500.#RCVRDONE ,RCSR .#SE T> 


IF. ERROR THFN 

; RECIEVER DONE DID NOT SE' 


1 







M 5 

1 
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TEST BREAK DETECTION LOGIC 

SEO 0064 

2629 

006132 







ERRHRD 115 

2630 

006132 

104115 




ERROR 

115 


2631 

006134 







END IF 

2632 

006134 




SI 42: 




2633 

006134 







LET RO := dRBUF 

2634 

006134 

017700 

17312? 



MOV 

SR8UF ,R0 


2635 

006140 







IF8 RO NE #0 THEN 

2636 

006140 

105700 




TSTB 

RO 


2637 

006142 

001403 




BEO 

$143 


j 2638 








; BREAK DID NOT EQUAL 0 

2639 

006144 







LET ERRCHK ERRCHK SET. BY #BITO 

2640 

006144 

052737 

000001 

006500 


BIS 

#8IT0, ERRCHK 


2641 

006152 







END IF 

2642 

006152 




$143: 




2643 

006152 







IF #F RERR NOTSETIN RO THEN 

2644 

006152 

032700 

020000 



BIT 

#FRERR,RO 


2645 

006156 

001003 




BNE 

$144 


2646 

006160 







LET ERRCHK : ERRCHK SE T .BY #81 T1 

2647 

006160 

052737 

000002 

006500 


BIS 

#81 T1 .ERRCHK 


2648 

006166 







END IF 

2649 

006166 




$144: 




2650 

006166 







IF #PARJTY SET IN SUSWR THEN 

2651 

006166 

032737 

000002 

001220 


BIT 

#PAR I T Y , SUSWR 


2652 

006174 

001421 




BEO 

$145 


2653 








;ODD PARITY ENABLED 

2654 

006176 







IF #EVENODD NOTSETIN SUSWR THEN 

2655 

006176 

032737 

000004 

001220 


BIT 

#EVENODD. SUSWR 


2656 

006204 

001007 




BNE 

$146 


2657 








.-BREAK SHOULD GENERATE A PARI TV ERRO 

2658 

006206 







IF #PERR NOTSETIN RO THEN 

2659 

006206 

032700 

010000 



BIT 

#PERR,RO 


2660 

006212 

001003 




BNE 

$147 


2661 








;N0 PAR ERROR WHEN THERE SHOULD 

2662 

006214 







LET ERRCHK : ERRCHK SET. BY #BIT2 

2663 

006214 

052737 

000004 

006500 


BIS 

#8IT2,ERRCHK 


2664 

006222 







END IF 

2665 

006222 




$147: 




2666 

006222 







ELSE 

2667 

006222 

000406 




BR 

$150 


2668 

006224 




$146: 




2669 

006224 







IF #PERR SET IN RO THEN 

267C 

006224 

032700 

010000 



BIT 

#PERR,RO 


2671 

006230 

001403 




BEO 

$151 


2672 

006232 







LET ERRCNT :~ ERRCNT SET.8Y #BIT3 

2673 

006232 

052737 

000010 

005622 


BIS 

#81 T3. ERRCNT 


2674 

006240 







END IF 

2675 

006240 




$151: 




2676 

006240 







END IF 

2677 

006240 




$150: 




2678 

006240 







END IF 

2679 

006240 




$145: 




2680 









2681 

006240 







BRESET .-CLEAN UP 

2682 

006240 

000005 




RESET 



2683 

006242 

032777 

170000 

173012 


BIT 

#* 7 0000,a>RBuF 


2684 

006250 

001401 




BEO 

1$ 



N « 
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2685 

006252 

104033 




ERROR 

33 

2686 

006254 




IS: 



2687 








2688 

006254 






*8IT0. ERRCHK 

2689 

006254 

032737 

000001 

006500 


BIT 

2690 

006262 

001401 




BEQ 

$152 

2691 

006264 







2692 

006264 

104121 




ERROR 

121 

2693 

006266 







2694 

006266 




$152: 



2695 

006266 







2696 

006266 

032737 

000002 

006500 


BIT 

*81 T1. ERRCHK 

269? 

^06274 

001401 




BEQ 

$153 

2698 

006276 







2699 

006276 

104122 




ERROR 

122 

2700 

006300 







2701 

006300 




$153: 



2702 

006300 







2703 

006300 

032737 

000004 

0U6500 


BIT 

*8IT2. ERRCHK 

2704 

006306 

001401 




BEQ 

$154 

2705 

006310 







2706 

006310 

104235 




ERROR 

235 

2707 








2708 








2709 

006312 







2710 

006312 




$1 54 : 



2711 

006312 







2712 

006312 

032737 

0000 1C 

006500 


BIT 

#81 T3. ERRCHK 

2713 

006320 

001401 




BEQ 

$155 

2714 

006322 







2715 

006322 

104236 




ERROR 

236 


2716 

2717 

2718 

2719 006324 

2720 006324 $155: 

2721 006324 

2722 006324 


2723 

006324 

012737 

006332 

oomo 

MOV 

#64$,$LPERR 

2724 







2725 

006332 






2726 

006332 

052777 

000001 

1 72724 

BIS 

*8REAK .STCSR 

2727 







2728 

006340 






2729 

006340 

010546 



MOV 

R5.-CSP) 

2730 

006342 

012745 

177777 


MOV 

#SET.-(R5) 

2731 

006346 

013745 

001264 


MOV 

TCSR.-(R5) 

i% 

006352 

012745 

000001 


MOV 

#BREAK.-(R5) 

006356 

012745 

000500 


MOV 

#5CO.-CR5> 

2734 

006362 

004737 

012446 


JSR 

PC, TIMER 

2735 

006366 

012605 



MOV 

( SP) ♦ ,R5 

2736 







2737 







2738 

006370 






2739 

006370 

'03001 



BCC 

$' *-6 


2740 

i 


LOGIC 


SEQ 0065 


.•RESET DID NOT CLEAR ERROR. FR ERR. OR PERR IN R8uf 

IF *81 TO SETIN ERRCHK THEN 

ERRHRD 121 .-BREAK ERROR 
END IF 

IF *81 r 1 SETIN ERRCHK THEN 

ERRHRD 122 ; FRAMING ERROR 

ENDIF 

IF *81 T2 SETIN ERRCHK THEN 

ERRHRD 235 

;N0 PARITY ERROR WHEN 
.-THERE SHOULD BE 

FNDIF 

IF #81 T3 SETIN ERRCHK THEN 
ERRHRD 236 

.-PARITY ERROR SHOULD NOT HAVE 
.•OCCURED WITH EVEN PARITY 
.•ENABLED AND BREAK SET 

ENDIF 

ENOSUR 

BGNSU8 

;SET BREAK BIT 

LET iTCSR := 3TCSR SET. BY *BREAK 
CAL^ TIMER IN <#500,*BREAK,TCSR,*SET> 


;DID IT SET? 

IF. ERROR THEN 

.-BREAK DID NOT SET 


UL V 1 1 J ICOI rwu 1 ! 
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SEO 0066 

2741 

006572 








ERRHRD 21 

2742 

006372 

104021 




ERROR 

21 



2745 

006574 








END If 

2744 

006374 




$156: 





2745 










2746 









; CLEAR BREAK BIT 

2747 

006374 








LET 3TCSR := 3TCSR CLR.BY #8REAK 

2748 

006374 

042777 

000001 

1 72662 


BIC 

#8REAK,aTCSR 



2749 

006402 








WAJTMS 100. 

2750 

006402 

010546 




MOV 

R5.-CSP) 



2751 

006404 

012745 

000144 



MOV 

#100.. -(R5) 



2752 

006410 

004737 

012620 



JSR 

PC. WAIT 



2755 

006414 

012605 




MOV 

(SP)+,R5 



2754 










2755 










2756 









.-READ RBUF TO CLEAR ERRORS fc REC DONE 

2757 

006416 








LFT RO := 3R8UF 

2758 

006416 

01 7700 

1 72640 



MOV 

iRBUF.RO 



2759 









.-SEND CHAR 

2760 

006422 








LET aTBUF := #125 

2761 

006422 

012777 

000125 

172636 


MOV 

#125,aTBU r 



2762 









.-WAIT FOR DONE BIT 

2763 

006430 








call TIMER IN <#500,#RCVRDONE.RCSR.#SET> 

2764 

006430 

010546 




MOV 

R5.-(SP) 


2765 

006432 

012745 

1 77777 



MOV 

#SET,-(R5) 



2766 

006436 

013745 

001260 



MOV 

RCSR.-(R5) 



2767 

006442 

012745 

000200 



MOV 

#RCVRD0NE.-(R5> 



2768 

006446 

012745 

000500 



MOV 

#500. -<R5) 



2769 

006452 

004737 

012446 



JSR 

PC. TIMER 



2770 

006456 

012605 




MOV 

(SP1+.R5 



277 1 

006460 








IF. ERROR THEN 

2772 

006460 

103001 




BCC 

$157 



2773 









.•RECEIVER NEVER CAME READY 

2774 

006462 








ERRHRD 230 

2775 

006462 

104230 




ERROR 

230 



2776 

006464 








END IF 

2777 

006464 




$157: 





2778 










2779 









.WAS CHAR AFTER BREAK RECEIVED 

2780 

006464 








IF8 aRBUF NE #125 THEN 

2781 

006464 

127727 

1 72572 

000125 


CMP8 

aRSUF ,#125 



2782 

006472 

001401 




BEQ 

$160 



2785 









; CHAR AFTER BREAK NOT RECEIVED CORRECTLY 

2784 

006474 








ERRHRD 231 

2785 

006474 

104231 




ERROR 

231 


2786 

006476 








END IF 

2787 

006476 




$160: 





2788 

006476 







ENDSLfi 


2789 

006476 







EXIT 


2790 

006476 

000401 




BR 

TST20 

; .-EXIT 

THIS TEST 

2791 

006500 

000000 



ERRCHK: 

.WORD 0 
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2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 
2313 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 


006502 

006504 

006512 

006512 

006520 

006522 

006522 

006530 

006532 

006572 

006572 

006574 

006574 

006574 

006600 

006602 

006642 

006642 

006646 

006646 

006646 

006646 

006646 

006662 

006670 

006710 

006716 

006736 

006744 

006750 

006750 

006750 

006754 

006754 

006762 

006764 

006764 

006770 

006770 

006774 

006774 

006774 





• • ***** 

;*TEST 

********* 

20 

NOT A TEST - SEND BACK TO LOOP 

000004 



TST20: 

SCOPE 


; ; DO 1 ITERATION 

012737 

000001 

001160 


MOV 

n.STIMES 





IF #81 T12 SETIN iSUR THEN 

032777 

010000 

1 72420 


BIT 

#8IT12,aSWR 


001513 




BEQ 

$161 

IF PHASE? EQ #TRUE THEN 

023727 

014166 

000001 


CMP 

PHASE 2 .* TRUE 


001021 




BNE 

$162 






TYPTXT 

«CRLF>/ 

** PhASE 2 SUMMARY **/<CRLF» 







ELSE 

000425 



SI 62: 

BR 

$163 

IF P1CNT EQ #0 THEN 

005737 

014170 



TST 

P1CNT 


001022 




BNE 

$164 





TYPTXT 

«CRLF>/ 

** PHASE 1 SUMMARY **/<CRLF» 







LET P1CNT := P1CNT ♦ #1 

005237 

014170 


SI 64: 

INC 

P1CNT 

END IF 







END IF 




$163: 

TYPTXT 

<*CSR: *> 






TYPOCT 

DLADD 






TYPTXT 

<*, VECTOR: *> 






TYPOCT 

DLVEC 






TYPTXT 

<*, ERRORS: *> 






TYPDEC 

$ERTTL 


104401 

001171 


$161: 

TYPE 

,$CRLF 

END IF 

005037 

001112 



CLR 

$erttl 

; RESET FOR NEXT DEVICE/PASS 





IF PHASE 2 EQ #TRUE THEN 

023727 

014166 

000001 


cup 

PHASE 2.H TRUE 


001004 




BNE 

$165 

LET PHASE 2 :- #0 

005037 

014166 



CLR 

PHASE 2 

LET $UNIT : SUNIT + #1 

005237 

001206 


$165: 

INC 

sunjt 

END IF 

000137 

001 732 



JMP 

LOOP 

; BACK UP TO THE BEGINNING 


SEQ 0067 


LOOP 


; BACK UP TO THE BEGINNING 
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T20 NOT A TEST - SEND BACK 

MODTST: 

TO LOOP 

2841 





; ‘TEST 

21 

TEST THAT CHANNELS JNTR AT ASSIGNED PRIORITY 

2842 





• * 


INTERRUPTS WILL 

BE ENABLED ON ALL ACTIVE CHANNELS. 

2843 





• * 


RECEIVER AND TRANSMITTER. THEN WE’LL CHECK TO 

2844 





• * 


SEE IF THEY INTERRUPTED IN THE ASSIGNED SEQUENCE. 

2845 





***************************************************************** 

2846 

007000 

000004 



TST21 : 

SCOPE 



2847 

007002 

012737 

000001 

001160 


MOV 

A1.$TIMES 

; ;D0 1 ITERATION 

2848 

007010 

012737 

000021 

001 200 


MOV 

A21.$TESTN 

;;SET TEST NUMBER IN APT MAIL BOX 

2849 









<:o!>U 

2851 








.-CLEAR OUT INTERRUPT TABLE 

2852 

007016 







LET RO AINTRTABLE 

2853 

007016 

012700 

007744 



MOV 

aintrtable.ro 


2854 

007022 







REPEAT 

2855 

007022 




$166: 




2856 

007022 







LET (RO) ♦ : = AO 

2857 

007022 

005020 




CLP 

(RO) + 


2858 

007024 







UNTIL RO EQ ATABEND 

2859 

007024 

020027 

007764 



CMP 

RO.ATABEND 


2860 

007030 

001374 




BNE 

$166 


2861 









2862 








; SET PRIORITY TO 7 

2863 

007032 





SETPRI 

APR 7 


£004 

2865 








; SE T UP ALL INTERRUPT VECTORS 

2866 

007044 







wET RO := DLVEC 

2867 

007044 

013700 

001256 



MOV 

DLVEC.RO 


2868 

007050 







LET R1 ARCVROSRV 

2869 

007050 

012701 

007424 



MOV 

ARCVR0SRV.R1 


2870 

007054 







REPEAT 

2871 

007054 




$167: 




2872 

007054 







LtT (RO)* : R1 

2873 

007054 

010120 




MOV 

R1 , (RO) ♦ 


2874 

007056 







LFT (R0) + : APR 7 

2875 

007056 

012720 

000340 



MOV 

APR7, (RO) ♦ 


2876 

007062 







LET R1 :~ R 1 ♦ A30 

2877 

007062 

062701 

000030 



ADD 

A30.R1 


2878 

007066 







UNTIL R1 EQ ASRVEND 

2879 

007066 

020127 

007^24 



CMP 

R1 .ASRVEND 


2880 

007072 

001370 




BNE 

$167 


£00 1 
2882 








.-ENABLE INTERRUPTS ON ALL ACTIVE LINES 

2883 








; ALSO. XMIT CHAR’S '0 PRIME RECEIVERS 

2884 









2885 








.-COPY MASK 

2886 

007074 







LET CHMASK MASK 

2887 

007074 

013737 

014162 

007764 


MOV 

MASK.CHMASK 


2888 

007102 







IET CHCNT := AO 

2889 

007102 

005037 

007766 



CLR 

CHCNT 


2890 

007106 







LET RO :- DLADD 

2891 

007106 

013700 

001254 



MOV 

DLADD.RO 


2892 

007112 







REPEAT 

2893 

007112 




$170: 





SEO 0068 
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T21 

TEST 

T HAT CHANNELS INTR 

2894 

007112 







2895 

007112 

032737 

000001 

007764 


BIT 

#BI TO, CHMASK 

2896 

007120 

001430 




BEQ 

$171 

2897 








2898 

007122 







2899 

007122 

052710 

000100 



BIS 

#81 T6, (RO) 

2900 

007126 







2901 

007126 

062700 

000004 



ADD 

#4,R0 

2902 








2903 

0071 32 







2904 

0071 32 

052710 

000100 



BIS 

#81 T6, (RO) 

2905 








2906 

007136 







2907 

0071 36 

012760 

000252 

000002 


MOV 

#252,2(R0) 

2908 








2909 

007144 







2910 

007144 

162700 

000004 



sue 

#4 .RO 

2911 








2912 

007150 







2913 

007150 

010546 




MOV 

R5,-(SP) 

2914 

0071 52 

012745 

177777 



MOV 

#SET.-(R5) 

2915 

007156 

010045 




MOV 

R0,-(R5) 

2916 

007160 

012745 

000200 



MOV 

#RCVRD0NE.-(R5) 

2917 

007164 

012745 

000500 



MOV 

#500. -(R5) 

2918 

007170 

004737 

012446 



JSR 

PC. TIMER 

2919 

0071 74 

012605 




MOV 

(SP)*.R5 

2920 








2921 

007176 







2922 

007176 

103001 




BCC 

$172 

2923 








2924 

007200 







2925 

007200 

104025 




ERROR 

23 

2926 

007202 







2927 

007202 




$172: 



2928 

007202 







2929 

007202 




$177: 



2930 








2931 

007202 







2932 

007202 

062700 

000010 



ADD 

#10. RO 

2933 








2934 

007206 







2935 

007206 

006237 

007764 



A SR 

CHMASK 

2936 

007212 







2937 

007212 

005237 

007766 



INC 

CHCNT 

2938 

007216 







2939 

007216 

023727 

007766 

000003 


CMP 

CHCNT, #3 

2940 

007224 

001007 




BNE 

$173 

2941 

007226 







2942 

007226 

004737 

013530 



JSR 

PC, TSTCON 

2943 

007232 







2944 

007232 

005737 

013604 



TST 

CONSOLE 

2945 

007236 

001402 




BEQ 

$174 

2946 

007240 







2947 

007240 

005237 

007766 



INC 

CHCNT 

2948 

007244 







2943 

007244 




$ 7 7 4 : 




ASSIGNED PRIORITY 
If #81 TO SETIN CHMASK THEN 


SEO 0069 


.SET RCSR IE 

LET (RO) (RO) SET.8Y #8IT6 
LET RO := RO ♦ #4 
;SET XCSR IE 

LET (RO) := (RO) SET.8Y #8IT6 

.-LOAD X8UF 

LET 2( RO) : #252 

;G0 BACK TO RCSR 
LET RO := RO - #4 

.-LOOK FOR RCVR DONE 

CALL TIMER IN <#500,#RCVRD0NE .RO.#SET> 


;DID IT SET IN TIME? 

IF. ERROR THEN 

;PC VRDONE DID NOT SET IN RCSR 
ERRHRD 23 

ENDIF 
END IF 

LET RO : RO ♦ #10 

; SE T UP FOR NEXT CHANNEL 
LET CHMASK CHMASK SHIFT -1 

LET CHCNT : CHCNT ♦ #1 

IF CHCNT EQ #3 THEN 

CALL TSTCON 
IF CONSOLE NE #0 THEN 

LET CHCNT := CHCNT ♦ # 1 


ENDIF 


F 6 
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SEO 0070 


2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

29 7 6 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 


007244 

007244 

007244 

007244 

007252 


Q23 7 27 007766 000004 
00M17 


007254 

007254 


007260 


007272 

007272 

007274 

007274 

007300 

007300 

007304 

007304 

007310 

007310 

007314 

007322 

007326 

007330 

007334 

007340 

007342 

007346 

007352 

007354 

007360 

007364 

007370 

007372 

007400 

007402 

007404 


012704 Ou 7 744 


000005 


005037 007772 


005037 007770 
012700 007744 


012701 

013737 

006237 

103002 

005237 

005737 

001370 

004737 

005737 

001402 

005337 

006337 

005337 

001410 

023727 

001404 

022120 

003367 


007746 

014162 007764 

007764 

007772 

007764 


013530 
01 3604 

007772 

007772 

007772 

007772 1 7 7777 


CHCNT,tf4 

$170 


END IF 

UNTIL CHCNT EQ #4 


ALL XMIT & REC INTERRUPTS SHOULD BE 
IN CONTENTION. 

RECEIVE INTERRUPTS HAVE PRIORITY 
OVER XMIT INTERRUPTS. 

LOW CHANNELS HAVE PRIORITY OVER HIGH CHANNELS. 
THEREFORE , ONCE CPU PRIORITY IS LOWERED, 
INTERRUPTS S/8 IN THE ORDER SHOWN IN THE 
CHANNEL IDENTIFIER TABLE (RCHO:) 


tf INTRTABLE ,R4 


SETPRI 


RESE T 


; SET UP POINTER FOR SERVICE ROUTINE 
LET R4 tfINTRTABLE 


;LET EM GO 


BRESET 


.■DISABLE ALL INTERRUPTS 


PRIERR 

tfINTRTA8LE.R0 


tf INTRTA8LE + 2.R1 
MASK , CHMASK 

CHMASK 

2 $ 

TCNT 

CHMASK 

1 $ 

PC , TSTCON 
CONSOLE 

3$ 

TCNT 

TCNT 

TCNT 

5$ 

TCNT.tf-1 

5$ 

(rl 1 )♦, C RO > ♦ 

4$ 


LET TCNT : = tf 0 

.'CLEAR ERR FLAG 
LET PRIERR :~ tfO 

LET RO :* tfINTRTABLE 

.-SETUP EXPECTED VALUE 
LET R 1 : tfINTRTABLE+2 

.-GET tf OF CHANNELS IN TCNT 


;GET TOTAL CHANNEL CT 


: CORRECT CHANNEL CT FOR CONSOLE 


: APPLY X2 MULT FACTOR 


ALL I'S ? 

8R IF YES 
R1-R0 

8R IF R1 >R0 
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CVDLAB. 

P11 17-NOV-78 09:38 

T21 

TEST 

r HAT CHANNELS 

INTR 

AT ASSIGNED PRIORITY 

5006 

007406 

005237 

007770 


INC 

PRIERR 


.-ELSE ERROR 

jkAJ' 

5008 

007412 



5 $: 





5009 

007412 







IF PRIERR NE »0 THEN 

5010 

007412 

005737 

007770 


TST 

PRIERR 



5011 

007416 

OOUOI 



BEQ 

$175 



5012 

007420 







FRRHRD 250 

5015 

007420 

104250 



ERROR 

250 



3014 








.•CHANNELS DID NOT INTR ACCORDING TO 

3015 








.-ASSIGNED PRIORITY. THE B”TE ENTRIES 

5016 








; IN INTRTABLE: SHOULD BE IN THE ORDER 

3017 








; THAT THEY APPEAR IN THE CHANNEL # 

3018 








.-TABLE .(EXCLUDING CHANNELS NOT ACTIVE) 

3019 

007422 







END IF 

3020 

007422 



SI 75 : 





3021 









3022 

007422 







EXIT 

3023 

007422 

000565 



BR 

TST 22 


;;EXIT THIS TEST 


SFQ 0071 


1 






H 6 




CVDLAAO DL V 1 1 - 

„ TEST 

MACYll 
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1 7-N0V-78 
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T21 TEST 

T HAT CHANNELS INTR 

AT ASSIGNED PRIORITY 

SEO 0072 

3024 










302 5 










3026 





• * 

START OF SERVICE 

ROUTINES 


3027 










3028 










3029 

007424 






BGNSRV 

RCVROSRV 


3030 

007424 




RCVROSRV: 





3031 








;PUT INTR IDENTIFIER IN INTRTA8LE 


3032 

007424 







LET (R4) ♦ := RCHO 


3033 

007424 

0’ 3724 

007724 


MOV 

RCHO, (R4 ) ♦ 




3034 








.•GENERATE CSR ADDRESS 


3035 

007430 







LET TEMP : RCSR 


3036 

007430 

013737 

001260 

007774 

MOV 

RG SR. TEMP 




303 7 

007436 







LET TEMP := TEMP ♦ #0 


3038 

007436 

062737 

000000 

007774 

ADD 

#0, TEMP 




3039 








;ONE INTR IS ALL WE WANT FROM HERE 


3040 

007444 







LET STEMP : STEMP CLR.BY #8IT6 


3041 

007444 

042777 

000100 

000322 

BIG 

#81 T6, STEMP 




3042 

007452 






END SRV 



3043 

007452 

000002 



RTI 





3044 










3045 










3046 

007454 






BGNSRV 

XMI TOSRV 


3047 

007454 




XMITOSRV: 





3048 








;PUT INTR IDENTIFIER IN INTRTA8LE 


3049 

007454 







LE T (R4) ♦ : TCHO 


3050 

007454 

013724 

007734 


MOV 

T CHO. (R4) ♦ 




3051 








.•GENERATE CSR ADDRESS 


3052 

007460 







LET TEMP :- RCSR 


3053 

007460 

013737 

001260 

007774 

MOV 

PC SR, TEMP 




3054 

007466 







LET TEMP := TEMP ♦ #4 


3055 

007466 

062737 

000004 

007774 

ADD 

#4. TEMP 




3056 








;ONE INTR IS ALL WE WANT FROM HERE 


3057 

007474 







LET STEMP := STEMP CLR.BY #8P6 


3058 

007474 

042777 

000100 

000272 

BIG 

#81 T6.STFMP 




3059 

007502 






END SRV 



3060 

007502 

000002 



RTI 





5061 










3062 

007504 






BGNSRV 

RGVR1SRV 


3063 

007504 




RCVR1SRV: 





3064 








;PUT INTR IDENTIFIER IN INTRTABLE 


3065 

007504 







LET (R4) ♦ :- RCHl 


3066 

007504 

013724 

007726 


MOV 

RCH 1 , GR4) ♦ 




5067 








.•GENERATE CSR ADDRESS 


3068 

007510 







LET TEMP := RCSR 


3069 

007510 

013737 

001260 

007774 

MOV 

RCSR.TEMP 




3070 

007516 







o 

* 

♦ 

3 ! 

UJ 

II 

$: 

UJ 

UJ 


3071 

007516 

062737 

000010 

007774 

ADD 

#10. TEMP 




30 72 








.-ONE INTR IS ALL WE WANT FROM HE r c 


307 3 

007524 







LET STEMP := STEMP CLR.BY #8IT6 


3074 

007524 

04 2777 

000100 

000242 

BIG 

#81 T6,S T EMP 




3075 

007532 






END SRV 



3076 

00753? 

0000C2 



RTI 





3077 










3078 

00 7 534 






BGNSRV 

XMJT1SRY 


50 79 

JO "’534 




XMI T 1 SRV: 
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09:39 PAGE 74 
T HAT CHANNELS 


INTR 


3080 







3081 

007534 





T CHl , (R4 ) ♦ 

3082 

007534 

013724 

007736 


MOV 

3083 







3084 

007540 





RCSR. TEMP 

5085 

007540 

013737 

001260 

007774 

MOV 

3086 

007546 





#14. TEMP 

3087 

3088 

5089 

5090 

007546 

007554 

007554 

062737 

000014 

007774 

ADD 


042777 

000100 

000212 

BIC 

#81 T6. STEMP 

3091 

00756? 






3092 

007562 

000002 



R T I 


5093 







5094 

007564 






5095 

007564 




RCVR2SRV: 


3096 







3097 

007564 





RCH2.CR4)* 

3098 

007564 

013724 

007730 


MOV 

3099 







3100 

007570 






3101 

007570 

013737 

001260 

007774 

MOV 

RCSR. TEMP 

3102 

007576 





#20, TEMP 

3103 

007576 

062737 

000020 

007774 

ADD 

3104 







3105 

007604 






3106 

007604 

042777 

000100 

000162 

BIC 

#8116. STEMP 

3107 

007612 






3108 

007612 

000002 



RTI 


3109 







3110 

007614 






5111 

007614 




XMIT2SRV: 


3112 







3113 

007614 





TCH2.(R4W 

3114 

007614 

013724 

007740 


MOV 

3115 







3116 

007620 






3117 

007620 

013737 

001260 

0077^4 

MOV 

RCSR, TEMP 

3118 

007626 






3119 

007626 

062737 

000024 

007774 

ADD 

#24. TEMP 

3120 







3121 

007634 






3122 

007634 

042777 

000100 

0001 32 

BIC 

#8!T6. STEMP 

3123 

007642 






3124 

007642 

000002 



RTI 


5125 







3126 

007644 






3127 

007644 




RCVR3SRV: 


3128 







3129 

007644 






3130 

007644 

013724 

007732 


MOV 

RCH3, (R4)+ 

3131 







3132 

007650 






3133 

007650 

013737 

001260 

007774 

MOV 

RCSR. TEMP 

3134 

007656 






3135 

007656 

062737 

000030 

007774 

ADD 

#30. TEMP 


AT ASSIGNED PRIORITY SEQ 0073 

; PUT INTR IDENTIFIER IN INTRTA8LE 
LET (R4) ♦ := TCHl 

.•GENERATE CSR ADDRESS 
LET TEMP := RCSR 

LET TEMP := TEMP ♦ #14 

;ONE INTR IS ALL WE WANT FROM HERE 
LET 8TEMP := STEMP CLR.BY #8IT6 


ENDSRV 


BGNSRV RCVR2SRV 

;PUT INTR IDEN r IFIER IN INTRTABLE 
LET (R4) ♦ :- RCH 2 

.GENERATE CSR ADDRESS 
LET TEMP :- RCSR 

LET TEMP := TEMP ♦ #20 

;ONE INTR IS ALL WE WANT FROM HERE 
Lt T STEMP := STEMP CLR.BY #8IT6 

ENDSRV 


BGNSRV XMIT2SRV 

;PUT INTR IDENTIFIER IN INTRTABLE 
LET (R4) ♦ := TCH2 

.•GENERATE CSR ADDRESS 
LET TEMP := RCSR 

LET TEMP := TEMP ♦ #24 

;ONE INTR IS ALL WE WANT FROM HERE 
LET STEMP : STEMP CLR.BY #81 T6 

ENDSRV 


BGNSRV RCVR3SRV 

;PUT INTR IDENTIFIER IN INTRTABLE 
LET (R4) ♦ := RCH3 

; GENERATE CSR ADDRESS 
LET TEMP :- RCSR 


LET TEMP :- TEMP ♦ #30 
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CVOLAB.P1 1 17-NOV-78 09:38 T21 T 

3136 

31 37 007664 

3138 007664 04 2777 000100 000102 E 

3139 007672 

3140 007672 000002 F 

3141 

3142 007674 

3143 007674 XMIT3SRV: 

3144 

3145 007674 

3146 007674 013724 007742 f 

3147 

3148 007700 

3149 007700 013757 001260 007774 f 

3150 007706 

3151 007706 062737 000034 007774 (■ 

3152 

3153 007714 

3154 007714 042777 000 100 C00052 E 

5155 007722 

3156 007722 000002 F 

3157 007724 SRVEND: 


TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 


SEQ 0074 


#8JT6.aTEMP 


TCH3.CR4)* 


RCSR, TEMP 
#34 .TEMP 


#e;T6,aTEMP 


ENDSRV 


;ONE INTR IS ALL WE WANT FROM HERE 
LET 3TEMP := 3TEMP CLR.BY #81 T6 


BGNSRV XMIT3SRV 


;PUT INTR IDENTIFIER IN INTRTABLE 
LET (R4 ) ♦ := TCH3 

.•GENERATE CSR ADDRESS 
LET TFMP :- RCSR 

LET TEMP := TEMP ♦ #34 

;ONE INTR IS ALL WE WANT FROM HERE 
LET 3TEMP : 3TEMP CLR.BY #81 T6 


ENDSRV 


K 6 
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SEG 0075 


3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

31 72 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 


007724 

007726 

007730 

007732 

007734 

007736 

007740 

007742 


000000 

000001 

000002 

000003 

000010 

000011 

000012 

000013 


007744 

007764 

007764 

007766 

007770 

007772 

007774 


000010 


000000 

000000 

000000 

oooooo 

000000 


••CHANNEL IDENTIFIER TABLE** 

THE ENTRIES FROM THIS 

TABLE ARE PLACED IN THE INTRTA8LE 

IN THE ORDER THAT THE INTR'S 


RCHO: 

WV LW'. U. 

.WORD 

S' V- 

0 

RCHl : 

.WORD 

1 

RCH2: 

.WORD 

2 

RCH3: 

.WORD 

3 

TCHO: 

.WORD 

10 

TCHl : 

.WORD 

11 

TCH2: 

.WORD 

12 

r CH3: 

.WORD 

13 


; THIS TABLE WILL CONTAIN ENTRIES 
.•REPRESENTING EACH INTR IN 1HE ORDER 
.-THAT IT OCCURED 
; S/8 IN THE ABOVE ORDER 


INTRTABLE: 
T ABEND: 


.8LKW 8. 


CHMASK 
CHCNT: 
PP I ERR 

T CNT: 
JEl'V 3 : 


.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 


BITS 3-0 INDICATE WHICH CH’S ARE ACTIVE FOR THIS TEST 
CHANNEL COUNTER 

ERROR WORD. CONTAINS NO. OF INTR OUT OF ORDER 

TABLE PASS CTR 

FOR SERVICE ROUTINES 


CVDLAAO DLV11- 
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MACYll 

30G( 1063) 17-N0V-78 
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T21 

TEST 

THAT CHANNELS INTR 

AT ASSIGNED PRIORITY 

SEO 0076 

3189 









3190 




• •****< 





3191 




; ’•TEST 

22 

TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 


3192 




• * 


IN THIS WE'LL ENABLE INTERRUPTS ON ALL CHANNELS 


3193 




• * 


FOR THIS DLV11- 

J. THEN WE'LL XMIT AN INCREMENTING 


3194 




• * 


DATA PATERN VIA 

INTERRUPTS AND RECORD THE RECEIVER 


3195 




• * 


INTR. IN THE RECEIVER STATUS TABLE. 


3196 




• « 

NOTE: 

DOUBLE BUFFERING CAWOT BE TESTED AT ITS MAX SPEED 


3197 




• * 


BECAUSE OF APT 

CONSIDERATIONS. I.E. APT SENDS 


3198 




* * 


'BREAKS' WHICH 

CAUSE OVERRUN ERRORS. THEREFORE 


3109 




• * 


THE XMIT IE IS 

NOT ENABLED AGAIN UNTIL THE RECVR 


32C0 




• * 


HAS OBTAINED THE PREVIOUS WORD. 


3201 









3202 

007776 

000004 


TST22: 

SCOPE 




3203 

010000 

012737 

000001 

001160 

MOV 

A1.STIMES 

; ; DO 1 ITERATION 


3204 

010006 

012737 

000022 

001200 

MOV 

#22,$TESTN 

;;SET TEST NUMBER IN APT MAIL BOX 


3205 







; CLR ERROR WORD. 


3206 

010C14 






LET ERWRD : #0 


3207 

010CK 

005037 

012366 


CLR 

ERWRD 



3208 









3209 









3210 







.•CLEAR OUT RECEIVER TABLES 


3211 

010020 






LET RO : = #CHOTAB 


3212 

010020 

012700 

011360 


MOV 

#CH0TA8,R0 



3213 

010024 






REPEAT 


3214 

010024 



SI 76: 





3215 

010024 






LET (RO) ♦ : #0 


3216 

010024 

005020 



CLR 

(RO)* 



3217 

010026 






JNTIL RO EO #STATEND 


3218 

010026 

020027 

012360 


CMP 

PO.fSTATEND 



3219 

010032 

001 374 



BNE 

si h 



3220 









3221 







;SET UP ALL VECTORS 


3222 

010034 






LET R1 #ROSR V 


3223 

010034 

012701 

010660 


MOV 

#R0SRV.R1 



3224 

010040 






LET RO := DLVEC 


3225 

010040 

013700 

001256 


MOV 

DLVEC ,R0 



3226 

010044 






REPEAT 


3227 

010044 



SI 77: 





3228 

010044 






LET (RO)* := R1 


3229 

010044 

010120 



MOV 

R1 . (RO) ♦ 



3230 

010046 






LET (RO)* #PR7 


3231 

010046 

012720 

000340 


MOV 

#PR7, (RO) * 



3232 

010052 






LET R1 :- R1 ♦ #54 


3233 

010052 

062701 

000054 


ADD 

#54. R1 



3234 

010056 






LET (RO)* :- R1 


3235 

010056 

010120 



MOV 

R1 . (RO) ♦ 



3236 

010060 






LET (RO)* :- #PR7 


32 37 

010060 

012720 

000340 


MOV 

#PR7.t RO)* 



3238 

010064 






LE T R1 := R1 ♦ #44 


3239 

010064 

062701 

000044 


ADD 

#44. R1 



3240 

010070 






UNTIL R1 EO #SERENO 


3241 

010070 

020127 

011360 


CMP 

R1.#SEREND 



3242 

010074 

001363 



BNE 

S1?7 



324 3 







; SE T PRIORTY TO 7 


3244 

010C7& 




SETPRI #PR7 
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T 22 

TEST 

DATA TRANSFERS 

32A5 








32A6 








32A7 








32A8 

010110 







32A9 

010110 

013700 

00’25A 



MOV 

DLADD.RO 

3250 








3251 

01011A 







3252 

010114 

013737 

014162 

012360 


MOV 

MASK. CHMSK 

3253 

010122 







325A 

010122 

005037 

012362 



CLR 

CHCTR 

3255 








3256 

010126 







3257 

010126 

005037 

01236A 



CLR 

ACTCH 

3258 

010132 







3259 

010132 




5200: 



3260 

010132 







3261 

010132 

032737 

000001 

012360 


BIT 

ABI TO. CHMSK 

3262 

0101A0 

001 A 1 3 




BEQ 

$201 

3263 








326A 

0101A2 







3265 

0101A2 

005237 

01236A 



INC 

ACTCH 

3266 








3267 

0101A6 







3268 

0101A6 

052710 

000100 



BIS 

A8I T6. (RO) 

3269 

010152 







3270 

010152 

062700 

OOOOOA 



ADD 

AA.RO 

3271 








3272 

010156 







3273 

010156 

052710 

000100 



BIS 

ABI T6, (RO) 

327A 

010162 







3275 

010162 

062700 

OOOOOA 



ADD 

AA.RO 

3276 

010166 







3277 

010166 

0OOAO2 




BR 

$202 

3278 

010170 




$201: 



3279 

010170 







3280 

010170 

062700 

000010 



ADD 

A10.R0 

3281 

01017A 







3282 

01017A 




$202: 



3283 

01017A 







328A 

01 01 7A 

006237 

012360 



ASR 

CHMSK 

3285 








3286 








3287 

010200 







3288 

010200 

005237 

012362 



INC 

CHCTR 

3289 

01020A 







3290 

01020A 

023727 

012362 

000003 


CMP 

CHCTR, A3 

3291 

010212 

001007 




BNE 

$203 

3292 

01021 A 







3293 

01021A 

00A737 

013530 



JSR 

PC. TSTCON 

329A 

010220 







3295 

010220 

005737 

01360A 



TST 

CONSOLE 

3296 

01022A 

001 A02 




BEQ 

$20A 

3297 

010226 







3298 

010226 

005237 

012362 



INC 

CHCTR 

3299 

010232 







3300 

010232 




$20A : 




TH ALL ACTIVE LINES INTERRUPTING 


SEQ 0077 


.-ENABLE INTR'S ON ALL ACTIVE LINES 
.-THIS MODULE 
LET RO := DLADD 

; INITIALIZE 
LET CHMSK := MASK 

LET CHCTR := AO 

.-ACTIVE CHANNEL CTR 
LET ACTCH := AO 

REPEAT 

IF A8IT0 SETIN CHMSK THEN 


;A OF ACTIVE CH 

LET ACTCH := ACTCH ♦ A1 

;SET RCSR IE 

LET (RO) := (RO) SET. BY A8IT6 
LET RO := RO ♦ AA 
;SET XCSR IE 

LET (RO) := (RO) SET. BY ABIT6 
LET RO := RO ♦ AA 


ELSF 


Lc. RO := RO ♦ A10 

ENDIF 

LET CHMSK := CHMSK SHIFT -1 


LET CHCTR CHCTR ♦ A1 
IF CHCTR EQ A3 THEN 

CALL TSTCON 
IF CONSOLE NE AO THEN 

LFT CHCTR CHCTR ♦ A1 


ENDIF 


1 







N 

6 
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T22 

TEST 

DATA TRANSFERS 

WITH ALL ACTIVE LINES INTERRUPTING 

SEO 0078 

3501 

010232 








END IF 


3302 

010232 




1203: 






3503 

010232 








UNTIL CHCTR EO #4 


35 04 

010232 

023727 

012562 

000004 


C HP 

CHCTR.#4 




3505 

010240 

001334 




8NE 

$200 




3506 











5307 









; INI T BUFFER POINTERS FOR SERVICE ROUTINES 


3508 

010242 








LET RO := #CH0TA8 


3309 

010242 

012700 

011360 



MOV 

#CH0TA8.R0 




5310 

010246 








LET R1 := #CH1TA8 


3311 

010246 

012701 

011560 



MOV 

#CH1TAB.R1 




3312 

010252 








LET R2 := #CH2TAB 


3313 

010252 

012702 

011760 



MOV 

#CH2TA8. R2 




5314 

010256 








LET R3 : #CH3TA8 


3515 

010256 

012703 

012160 



MOV 

#CH3TA8.R3 




3316 











3317 









.-FILL XBUF WORDS 


3318 









.-FROM TMPO THRU TMP3E 


3319 









.•START WORD CH 0 ALWAYS 0 


3520 

010262 








LET TMPO := #0 


3321 

010262 

005037 

012372 



CLR 

TMPO 




3322 









.•OFFSET TO INDEX 


3323 

010266 








LET R4 :- #0 


3 32 A 

010266 

005004 




CLR 

R4 




3325 









;PTR TO TABLE TO BE FILLED 


3326 

010270 








LET R5 := ATMPOE 


3327 

010270 

012705 

012374 



MOV 

#TMP0E.R5 




3328 

010274 








REPEAT 


3329 

010274 




$205: 






3330 

010274 








IF #81 TO NOTSETJN $USWR THEN 


3331 

010274 

032737 

000001 

001220 


BIT 

#81 TO,$USWR 




3332 

010302 

001005 




BME 

$206 




3333 

010304 








LET (R5)+ : TA8L7CR4) 


3334 

010304 

016425 

012426 



MOV 

TA8' 7<R4).(R5>* 



3335 

010310 








LET (R5)+ : TA8L7(R4) 


3336 

010310 

016425 

012426 



MOV 

TA8L7(R4) , (R5) + 



3337 

010314 








EL SF 


3338 

010314 

000404 




BR 

$207 




3339 

010316 




$206: 






3340 

010316 








LET (R5)+ :- TA8L8(R4) 


3341 

010316 

016425 

012436 



MOV 

TA8L8(R4) . (R5)+ 



3342 

010322 








LET (R5) + := TA8L8(R4) 


3343 

010322 

016425 

012436 



MOV 

TABL8(R4) . (R5)+ 



3344 

010326 








ENDIF 


3345 

010326 




$207: 






3346 

010326 








LET R4 : R4 + #2 


3547 

010326 

062704 

000002 



ADD 

#2.R 4 




3348 

010332 







UNTIL R4 EQ #10 


3349 

010332 

020427 

000010 



CMP 

R4,#10 




3350 

3351 

M 

010336 

001356 


; 


BME 

$205 


; INI T TMP4 

.-WILL BE DECR BY XMIT SERVICE ROUTINES TILL 0 


010340 








LET TMP4 : ACTCH 


3354 

010340 

01 373 7 

012564 

012414 


MOV 

ACTCH.TMP4 




33*'5 









; SE T PRIORITY TO 0 


3356 

010346 





SETPRJ #PR0 
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3357 

3358 010360 

3359 010360 1210: 

3360 010360 


336 

010360 

005737 

012414 



1ST 

TMP4 

3362 

010364 

001375 




BNE 

$210 

3363 








3364 








5365 

010566 







3366 

010366 

012737 

'00000 

012414 


MOV 

#1 00000. TMP4 

3367 

010374 







3368 

010374 




$21 1 : 



3369 

010374 







3370 

010374 

005337 

012414 



DEC 

TW>4 

3371 

010400 







3372 

010400 

005737 

012414 



T ST 

TW>4 

3373 

010404 

001373 




BNE 

$211 

3374 








3375 








3376 

010406 







3377 

010406 

000005 




RESET 


3378 








3379 








3380 








3381 

010410 







3382 

010410 

005037 

012372 



CLR 

TMPO 

3383 

010414 







3384 

010414 

013737 

012374 

012376 


MOV 

TMPOE . TMP1 

3385 

010422 







3386 

010422 

013737 

012400 

012402 


MOV 

TMP1E.TMP2 

3387 

010430 







3388 

010430 

013737 

012404 

012406 


MOV 

TMP2E.TMP3 

3389 








3390 

010436 







3391 

010436 

005037 

012362 



CLR 

CHCTR 

3392 

010442 







3393 

010442 

013737 

014162 

012360 


MOV 

MASK. CHMSK 

3394 

010450 







3395 

010450 




$212: 



3396 

010450 







3397 

010450 

032737 

000001 

012360 


BIT 

#81 TO, CHMSK 

3398 

010456 

001436 




BEG 

$213 

3399 

3400 

3401 

3402 

010460 

010460 

013700 

012362 



MOV 

CHCTR.RO 

010464 







3403 

010464 

006300 




ASL 

RO 

3404 








3405 

3406 

3407 

3408 

SS 

SS 

oo 

016002 

012416 



MOV 

TABL6(R0).R? 

010472 







3409 

010472 

006300 




ASL 

RO 

3410 







3411 

010474 







3412 

010474 

016001 

0 1 2372 



MOV 

TMPO(RO) ,R1 


ALL ACTIVE LINES INTERRUPTING 


SEO 0079 


REPEAT 

UNTIL TMP4 EG #0 

.-WAIT FOR RECV'S TO CATCH UP 
LET TMP4 : #100000 

REPEAT 

LET T MPA :- TMP4 - #1 
UNTIL TMP4 EG #0 

.•DISABLE ALL INTR'S 
BRESET 

.-CHECK RECEIVER TABLE 
.•RESET TMPO, 1,2,3 
LET TMPO := #0 

LET TA1P1 TMPOE 

LET TMP2 :- TMP1E 

LET TMP3 := TMP2E 

.•INITIALIZE 
LET CHCTR :- #0 

LET TfflSK : MASK 

REPEAT 

IF #BITO SETIN CHMSK THEN 

LET RO := CHCTR 

.•OFFSET TO INDEX <2X) 

LET RO := RO SHIFT O 

;GET TABLE LOC FOR THAT CH. 
LET R 2 := TABL6(R0) 

.•OFFSET TO INDEX (4X) 

LET RO := RO SHIFT *1 

.-GET EXPECTED STARTING WORD 
LET R1 := TMPO(RO) 
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3413 010500 

3414 010500 062700 000002 

3415 

3416 010504 

3417 010504 016003 012372 

3418 

3419 010510 

3420 010510 

3421 010510 

3422 010510 032712 100000 

3423 010514 001403 

3424 010516 

3425 010516 052737 000400 012366 

3426 010524 

3427 010524 

3428 

3429 010524 

3430 010524 121201 

3431 010526 001402 

3432 010530 

3433 010530 005237 012366 

3434 010534 

3435 010534 

3436 

3437 010534 

3438 010534 005201 

3439 

3440 010536 

3441 010536 062702 000002 

3442 

3443 010542 

3444 010542 020103 

3445 010544 001403 

3446 010546 005737 012366 

3447 010552 001756 

3448 010554 

3449 010554 

3450 010554 

3451 010554 

3452 010554 005237 012362 

3453 010560 

3454 010560 006237 012360 

3455 010564 

3456 010564 023727 012362 000003 

3457 010572 001010 

3458 010574 

3459 010574 004737 013530 

3460 010600 

3461 010600 023727 013604 000001 

3462 010606 001002 

3463 

3464 010610 

3465 010610 005237 012362 

3466 010614 

3467 010614 

3468 010614 


ADD #2.R0 

MOV TMPO(RO) ,R3 

$214: 

BIT #8IT15,(R2) 

BEQ $215 

BIS #81 T8. ERWRD 

$215: 

CMP8 (R2).R1 

BEQ i?"6 

INC ERWRD 

$216: 

INC R1 

ADD #2,R2 

CMP R1.R3 

BEQ $217 

TST ERWRD 

BEQ $214 

$ 217 : 

$213: 

INC CHCTR 

ASR CHMSK 

CMP CHCTR, #3 

8NE $220 

JSR PC. TSTCON 

CMP CONSOLE, # T RUE 

BNE $221 

INC CHCTR 

$ 221 : 


ALL ACTIVE LINES INTERRUPTING 
LET RO := RO ♦ #2 


SEQ 0080 


;GET MAX WORD FOR THAT CH. 
LET R3 := TMPO(RO) 


REPEAT 

IF #8IT15 SETIN (R2) THEN 

LET ERWRD := ERWRD SET, BY #81 T8 
END IF 

; CHECK FOR DATA COMPARE ERROR 
IF8 (R2) NE R1 THEN 


LET ERWRD := ERWRD ♦ #1 
ENDIF 

;8UMP EXPECTED DATA WORD 
LET R1 R1 + #1 

;8UMP TABLE PTR 
LET R2 :- R2 ♦ #2 


UNTIL R1 EQ R3 OR ERWRD NE #0 


ENDIF 

LET CHCTR :- CHCTR ♦ #1 
LET CHMSK : CHMSK SHIFT -1 
IF CHCTR EQ #3 THEN 

CALL TSTCON 

IF CONSOLE EQ #TRUE THEN 
.-EXIT 

LET CHCTR := CHCTR ♦ #1 

ENDIF 


ENDIF 
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104271 


3469 010614 

3470 010614 

3471 010614 023727 012362 000004 

3472 010622 001403 

3473 010624 005737 012366 

3474 010630 001707 

3475 010632 

3476 

3477 010632 

3478 010632 032737 000400 012366 

3479 010640 001401 


S220: 


3481 010642 

3482 010642 104270 

3483 010644 

3484 010644 

3485 010644 

3486 010644 105737 012366 

3487 010650 001 401 

3488 

3489 010652 

3490 010652 104271 

3491 010654 

3492 010654 

3493 


$223: 


$224: 


010654 000137 006502 


TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 


SEO 0081 


ERROR 


ERROR 


CHCTR.A4 

$222 

ERWRD 

$212 


*81 T8. ERWRD 
$223 


UNTIL CHCTR EQ *4 OR ERWRD NE *0 


ERWRD 

$224 


TST20 


IF *8IT8 SETIN ERWRD THEN 


.-ERROR FLAG UP AFTER TRANSFER 
ERRHRD 270 


ENDIF 

I FB ERWRD NE *0 THEN 


; DATA COMPARE ERROR 
ERRHRD 271 


ENDIF 


; EX I T TEST 
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3496 

3497 

3498 

3499 

3500 

3501 010660 

3502 010660 

3503 010660 

3504 010660 

3505 010666 

3506 010666 

3507 010674 

3508 010674 

3509 010700 

3510 010700 

3511 010706 

3512 

3513 010710 

3514 010710 

3515 

3516 010716 

3517 010716 

3518 010724 

3519 010724 

3520 010726 

3521 

3522 010726 

3523 010726 

3524 010732 

3525 010732 

3526 010732 

3527 010732 

3528 

3529 010734 

3530 010734 

3531 010734 

3532 010734 

3533 C10742 

3534 010742 

3535 010750 

3536 010750 

3537 010756 

3538 010756 

3539 

3540 010762 

3541 010762 

3542 

3543 

3544 010770 

3545 010770 

3546 010776 

3547 010776 

3548 

3549 011000 

3550 011000 

3551 011000 
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SEO 0082 


0 0 
* * 


START OF SERVICE ROUTINES 


ROSRV: 


013737 

001260 

012370 


MOV 

RCSR. TMP 

062737 

000002 

012370 


ADD 

#2. TMP 

017720 

001470 



MOV 

3TMP. (R0)+ 

023737 

001407 

012372 

012374 


CMP 

BEQ 

TMPO. TMPOE 
$225 

062737 

000002 

012370 


ADD 

#2. TMP 

052777 

000100 

001444 


BIS 

#8IT6.3TMP 

000402 



$22 5 : 

BR 

$226 

005337 

012414 


$226: 

DEC 

TMP4 

000002 



XOSRV: 

RTI 


013737 

001260 

012370 


MOV 

RCSR. TMP 

062737 

000006 

012370 


ADD 

#6. TMP 

013777 

012372 

001412 


MOV 

TMPO. 3 TMP 

005237 

012372 



INC 

TMPO 

162737 

000002 

012370 


SUB 

#2. TMP 

042777 

000100 

001372 


81 C 

#81 T6.3TMP 


000002 


RTI 


BGNSRV ROSRV 

LET TMP := RCSR 
LET TMP := TMP ♦ #2 
LET (R0)+ : 3TMP 
IF TMPO NE TMPOE THEN 


;G0 TO XCSR 

LET TMP : TMP ♦ #2 


.•ENABLE XMIT INTERR 

LET 3TMP : 3TMP SET. BY #81 T6 


ELSE 

;ALL DONE 

LET TMP4 :- TMP4 - #1 
END IF 

ENDSRV 

BGNSRV XOSRV 

LET TMP :- RCSR 
LET TMP := TMP ♦ #6 
LET 3TMP : TMPO 
LET TMPO := TMPO ♦ #1 

; GO BACK TO XCSR 
LET TMP := TMP - #2 

.-DISABLE XMIT INTERRUPTS. 

;NOT EXER DOUBLE BUFFERING 
LET 3TMP := 3TMP CLR.BY #8IT6 

ENDSRV 

BGNSRV R1SRV 


R1SRV: 


ET TMP := RCSR 


CVOLAAO DLV11-J TEST 
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MACY11 

09:38 


300(1063) 17-NOV-78 

T22 TEST 


F 

09:39 PAGE 84 
DATA TRANSFERS 


wr 


3552 

011000 

013737 

3553 

011006 


3554 

011006 

062737 

3555 

011014 


3556 

011014 

017721 

3557 

011020 


3558 

011020 

023737 

3559 

011026 

001407 

3560 



3561 

011030 


3562 

011030 

062737 

3563 



3564 

011036 


3565 

011036 

052777 

3566 

011044 


3567 

011044 

000402 

3568 

011046 


3569 



3570 

011046 


3571 

011046 

005337 

3572 

011052 


3573 

011052 


3574 

011052 


3575 

011052 

000002 

3576 



3577 

011054 


3578 

011054 


3579 

011054 


3580 

011054 

013737 

3581 

011062 


3582 

011062 

062737 

3583 

011070 


3584 

011070 

013777 

3585 

011076 


3586 

011076 

005237 

3587 



3588 

011102 


3589 

011102 

162737 

3590 



3591 



3592 

011110 


3593 

011110 

042777 

3594 

011116 


3595 

011116 

000002 

3596 



3597 

011120 


3598 

011120 


3599 

011120 


3600 

011120 

013737 

3601 

011126 


3602 

011126 

062737 

3603 

011134 


3604 

011134 

01 7722 

3605 

011140 


3606 

011140 

023737 

3607 

011146 

001407 


001260 012370 
000012 012370 
OOi 350 

012376 012400 

000002 012370 
000100 001324 

$ 227 : 

012414 

$230: 

X1SRV: 


001260 

012370 

000016 

012370 

012376 

001272 

012376 


000002 

0123 7 0 

000100 

001252 


R2SRV: 

001260 012370 
000022 012370 
001230 

012402 012404 


MOV RCSP.TMP 

ADD #12. TMP 

MOV iTMP, (R1 ) ♦ 

CMP TMP1.TMP1E 

BEQ $227 

ADD *2. TMP 

BiS #01 T6. 3 TMP 

BR $230 

DEC TMP4 

RTI 

MOV RCSR. TMP 

ADD #16. TMP 

MOV TMP1.3TMP 

INC TMP1 

SUB #2. TMP 

81 C #81 T6.3TMP 

RTI 

MOV RC3R.TMP 

ADD #22. TMP 

MOV 3TMP. < R2 ) ♦ 

CHP h'. n 2,TMP2E 
BEQ $231 


ALL ACTIVE LINES INTERRUPTING 


SEO 0083 


LET TMP := TMP ♦ #12 
LET (R1)+ := 3TMP 
IF TMP1 NE TMP1E THEN 


; GO TO XCSR 

LET TMP : TMP ♦ #2 

.•ENABLE XMIT INTERR 

LET 9TMP := 3TMP SET. BY #81 T6 

ELSE 


;ALL DONE 

LET TMP<. : TMP4 - #1 
END IF 

CNDSRV 

BGNSRV X1SRV 

LET TMP : RCSR 

LET TMP : TMP ♦ #16 

LET 3TMP : TMP1 

LET TMP1 :- TMP1 ♦ #1 

;G0 BACK TO XCSR 
LFT TMP := TMP - #2 

.•DISABLE XMIT INTERRUPTS. 

;NOT EXER DOUBLE BUFF 
LET iTMP :- 3TMP CLR.BY #81 T6 

ENDSRV 

BGNSRV R2SRV 

LET TMP RCSR 
lE t TMP :- TMP ♦ #22 


LET (R 2>* :- 3TMP 
IF TMP2 NE TMP2E THEN 
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T22 

TEST 

DATA TRANSFERS 

WITH ALL ACTIVE LINES INTERRUPTING 

3608 








;G0 TO XC SR 

3609 

011150 







LET TMP := TMP ♦ #2 

3610 

011150 

062737 

000002 

012370 


ADD 

#2. TMP 


3611 








.•ENABLE XMIT INTERR 

3612 

011156 







LET 3TMP := 3TMP SET.8Y #81 T6 

3613 

011156 

052777 

000100 

00 ’204 


81 S 

#8IT6,aTMP 


3614 

011164 







ELSE 

3615 

0H164 

000402 




BR 

$232 


3616 

011166 




$231 : 




3617 








;ALl DONE 

3618 

011166 







let TMP4 :- TMP4 - #1 

3619 

011166 

005337 

012414 



DEC 

TMP4 


3620 

01 1 1 72 







END IF 

3621 

011172 




$232: 




3622 

01 1 1 72 







ENDSRV 

3623 

01 1 1 72 

000002 




RM 



3624 









3625 

011174 







BGNSRV X2SRV 

3626 

01 1 1 74 




X2SRV: 




3627 

011174 







LET TMP :- RCSR 

3628 

011174 

013737 

001260 

012370 


MOV 

RCSR.TMP 


3629 

011202 







LET TMP : TMP ♦ #26 

3630 

011202 

062737 

000026 

012370 


ADD 

#26, IMP 


3631 

011210 







LET aTMP : TMP 2 

3632 

011210 

013777 

012402 

001152 


MOV 

TMP2.STMP 


363 3 

011216 







LET TMP2 :- TMP2 ♦ #1 

3634 

011216 

005237 

012402 



INC 

TMP2 


3635 








;60 BACK TO XCSR 

3636 

011222 







LET TMP :- TMP - #2 

3637 

011222 

162737 

000002 

012370 


see 

#2.TMP 


3638 








.•DISABLE XMIT INTERRUPTS. 

5639 








;NOT EXER DOUBLE BUFF. 

3640 

011230 







LET aTMP : 3TMP CLR.8Y #8IT6 

3641 

011230 

042777 

000100 

0011 32 


81 C 

#81 T 6. aTMP 


5o42 

011236 







ENDSRV 

3643 

011236 

000002 




RTI 



3644 









3645 

011240 







BGNSRV R3SRV 

5646 

011240 




R3SRV: 




3647 

011240 







LET TMP : RCSR 

3648 

011240 

01373 7 

001260 

012370 


MOV 

RCSR.TMP 


3649 

011246 







LET TMP : TMP + #32 

3650 

011246 

062737 

000032 

012370 


ADD 

#32, TMP 


3651 

011254 







LET TR3>* : aTMP 

3652 

011254 

017723 

001110 



MOV 

3TMP, (R3) ♦ 


365 3 

011260 







IF TMP3 NE TMP3E THEN 

3654 

011260 

023737 

012406 

0124^0 


CMP 

TMP3, TMP3E 


3655 

011266 

001407 




8EQ 

$233 


3656 








;G0 TO XCSR 

365 7 

011270 







LET TMP :- TMP ♦ #2 

3658 

011270 

062737 

000002 

012370 


ADD 

#2. TMP 


3659 








.•ENABLE XMIT INTERR 

3660 

011276 







LET aTMP :- aTMP SET .8 V #8116 

3661 

011276 

052777 

000100 

001064 


81 S 

#81 T6.3TMP 


3662 

0H304 







FLSE 

3665 

01 1 304^ 

000402 




BR 

$234 



seo 0084 
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TEST 

DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 

5664 

011506 




1233: 



5665 







;ALL DONE 

5666 

011506 






LET TMP4 : TMP4 - #1 

5667 

011506 

005337 

012414 



DEC 

TMP4 

5668 

011512 






END IF 

5669 

011512 




S254 : 



5670 

011512 






ENDSRV 

5671 

0H512 

000002 




RTI 


5672 








5675 

011314 






BGNSRV X3SRV 

5674 

011314 




X3SRV: 



5675 

011514 






LET TMP :- RCSR 

5676 

011314 

013737 

001260 

012370 


MOV 

RCSR.TMP 

5677 

01 1 322 






LET TMP IMP ♦ #36 

5678 

01 1 322 

062737 

000036 

012370 


ADD 

#36. TMP 

5679 

01 1 530 






LET 3TMP : TMP3 

5680 

011330 

013777 

012406 

001032 


MOV 

TMP3,o)TMP 

5681 

011356 



- 



LtT TMP3 := TMP3 ♦ #1 

5682 

011356 

005237 

012406 



INC 

TM D 3 

5685 







; GO BACK TO XCSR 

5684 

011342 






LET TMP :- TMP - #2 

5685 

011342 

162737 

000002 

012370 


SUB 

02 . TMP 

5686 







.DISABLE XMIT INTERRUPTS 

5687 







;NOT EXER DOUBLE BUFF 

5688 

011350 






LET STMP :- STMP CLR.8Y #3lTi 

5689 

011350 

042777 

000100 

001012 


BIC 

#81 T 6, 3 TMP 

5690 

011356 






ENDSRV 

5691 

011356 

000002 




RTI 


5692 

011560 




SEREND: 




SEO 0085 
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3693 

3694 

3695 



;** RECEIVER STATUS TABLES ** 

3696 

011360 

000100 

CHOTAB- 

.8LKW 100 

5697 

011560 

000100 

CHI TAB: 

.8LKW 100 

3698 

011760 

000100 

CH2TAB: 

.BLKW 100 

3699 

012160 

000100 

CH3TAB: 

.8LKW 100 

3700 

012360 


STATEND 


3701 

012360 

000000 

CHMSK: 

.WORD 0 

3702 

012362 

000000 

CHCTR: 

.WORD 0 

3703 

012364 

000000 

ACTCH: 

.WORD 0 

3704 

3705 

3706 

012366 

000000 

ERWRD: 

.WORD 0 

3707 

3708 

012370 

000000 

TMP: 

.WORD 0 

3709 

012372 

000000 

MPO: 

0 

3710 

012374 

000000 

TMPOE : 

0 

3711 

012376 

oooooo 

TMP1 : 

0 

3712 

012400 

000000 

TMP1E: 

0 

3713 

012402 

oooooo 

TMP2: 

0 

3714 

012404 

oooooo 

TMP2E: 

0 

3715 

012406 

oooooo 

TMP5: 

0 

3716 

3717 

012410 

000002 

TMP3E: 

.BLKW 2 

3718 

3719 

012414 

oooooo 

TMP4 : 

.WORD 

3720 

012416 

011360 

TABL6: 

CHOTAB 

3721 

012420 

011560 


CHI TAB 

3722 

012422 

011760 


CH2TAB 

3723 

3724 

012424 

012160 


CH3TA8 

3725 

012426 

000040 

TABL7: 

40 

3726 

012430 

000100 


100 

3727 

012432 

000140 


140 

3728 

3729 

012434 

000200 


200 

3730 

012436 

000100 

TA8L8: 

100 

3731 

012440 

000200 


200 

3732 

012442 

000300 


300 

3733 

3734 
^35 

012444 

000400 


400 


1 


ALL ACTIVE LINES INTERRUPTING 


SEO 0086 


7 BIT WDS 
0- 37 
40- 77 
100-137 
140-177 


8 BIT WDS 
0- 77 
100-177 
200-277 
300-377 


MASK OF ACTIVE CHANNELS 
CHANNEL CTR 
ACTIVE CHANNEL CTR 

ERROR WORD, LOW BYTE IS NO. OF DATA ERRORS 
HIGH BYTE INDICATES ERROR FLAG DETECTED 

TEMP STORAGE FOR SERVICE ROUTINES 

START WORD FOR CH 0 
END WORD FOR CH 0 
START 1 

END 1 

START 2 

END 2 

START 3 

END 3 


; 7 BIT WORD TABLE 


;8 BP WORD TABLE 


CVDLAAO DLVll- 

J TEST 

MACY11 

30G( 1063) 

1 7-NOV-78 

J 7 

09:39 PAGE 88 


CVDI AB. 

P11 

1 7-NO V- 78 09:38 


r 22 

TEST 

DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 

SEO 8 

3736 









3737 









3738 





•* ROUTINE .-TIMER 


3739 





* 

THIS 

ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 


3740 





ft 

IN ANY REGISTER. 


3741 





* 

INPUTS: 


3742 





* 


HOWLONG THE MAXIMLM AMOUNT OF TIME TO SPEND IN 


3743 





* 


THIS ROUTINE. 


3744 





* 


WHICH8IT A MASK WITH THE BIT(S) SET THAT ARE 


374 5 





* 


TO BE CHECKED. 


3746 





* 


REG A POINTER TO THE REGISTER TO BE CHECKED 


3747 





* 


SETCLR THE DESIRED RESULTS 


3748 





ft 


EITHER ft SET OR fCLEAR 


3749 





ft 

OU T PUT: 


3750 





ft 


THE *C' BIT IS SET TO INDICATE AN ERROR 


3751 





ft 


BUT IT IS TESTED BY THE IF. ERROR STATEMENT 


3752 





ft 




3753 





ft 




3754 





ft 


NOTE:: THE USE OF (R5) IS PART OF THE LINKAGE 


3755 





ft 


MECHANISM BETWEEN THE CALLER AND THE CALLED 


3756 









3757 









3758 









3759 

012446 






ROUTINE TIMER <HOWLONG.WHlCFeiT.REG.SETCLR> 


3760 

012446 




TIMER: 




3761 

012446 






LET REGSAV : REG(R5) ; GET POINTER TO 

REGIST 

3762 

012446 

016537 

000004 

0 1 2606 


MOV 

REG(R5> .REGSAV 


3763 

012454 






LET TIMSAV : HOWLONG (R5) ; SAVE HOWLONG FOR 

3764 

012454 

016537 

000000 

012610 


MOV 

HOWL 0NG(R5). TIMSAV 


3765 

012462 






LET FLAG :8= »0 ; INITIALIZE THE EXIT 

-LAG 

3766 

012462 

105037 

012612 



CLRQ 

FLAG 


3767 









3768 









3769 







START OF AN INFINITE LOOP 


3770 









3771 

012466 






LOOP 


3772 

012466 



! 

>237: 




3773 







; TEST TO SEE IF WHICFCIT IS SET 


3774 

012466 






IF WHICHBIKR5) NOTSETIN aREGSAV 

THEN 

3775 

012466 

036577 

000002 

00QV2 


BIT 

WHICHBI T <R5) .SREGSAV 


3776 

012474 

001003 




BNE 

S241 


3777 

0124 76 






LET HOLDSC :B~ #0 


3778 

012476 

105037 

012613 



CLR8 

HOLDSC 


3779 

012502 






ELSE 


3780 

012502 

000403 




BR 

S242 


3781 

012504 



' 

>241 : 




3782 

012504 






LET HOLDSC :8 #SET ; REMEMBER 

THIS 

3783 

012504 

H2737 

177777 

012613 


M0V8 

tSET. HOLDSC 


3784 

012512 






END IF 


3785 

012512 




►242: 




3786 









3787 







; NOW SEE IF THAT WAS WHAT WE WANTED 


3788 

012512 






IF8 HOLDSC EO SETCLR(R5) THEN 


3789 

012512 

123765 

012613 

000006 


CMP8 

HOLDSC. SETCLR(R5) 


3790 

012520 

001005 




BNE 

s:'3 


3791 







; JUST THE THING WE NEEDED 



CvDLAAO 

DLVil-J 

TEST 

MAC Yl 1 

30G( 1063 

c vdlab.i 

00 

r^ 

1 

> 

2 
i 

A 

09:38 


3792 

012522 




3793 

012522 

112737 

000001 

012612 

3794 

012530 




3795 

012530 




3796 





3797 

012530 




3798 

012530 

123727 

012612 

000001 

3799 

012536 

001414 



3800 

012540 

005737 

01 26 1 0 


3801 

012544 

003411 



3802 





3803 





3804 





3805 

01254& 




3806 

012546 

010546 



3807 

012550 

012745 

000001 


3808 

012554 

004737 

012620 


3809 

012560 

012605 



3810 

012562 




3811 

012562 

005337 

012610 


3812 

012566 




3813 

012566 

000737 



3814 

012570 




3815 





3816 





3817 





3818 





3819 





3820 

012570 




3821 

012570 

123727 

012612 

000001 

3822 

012576 

001001 



3823 

012600 




3824 

012600 

000405 



3825 

012602 




3826 

012602 




3827 

012602 




3828 

012602 

000261 



3829 

012604 

000404 



3830 





3831 

012606 

000000 



3832 

012610 

000000 



3833 

012612 

000 



3834 

012613 

000 



3835 





3836 

012614 




3837 

012614 




3838 

012614 

000241 



3839 

012616 




3840 

012616 

000207 
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ROUTINE - TIMET 


$24 3: 


$240: 


MOVB 


CMPB 

BEG 

TST 

8LE 


MOV 

MOV 

JSR 

MOV 

DEC 

BR 


#TRUE .FLAG 


FLAG.ATRUE 

$240 

TIMSAV 

$240 


R5.-TSP) 
*1.-(R5) 
°C , WAJ T 
(SP1+.R5 

TIMSAV 

$237 


SEQ 0088 


LET FLAG :8= #TRUE 
ENDIF 

EXIF8 FLAG EO #TRUE OR TIMSAV lE #0 


; ONE WAV OR THE OTHER. UE ARE DONE 
IF WE ARE STILL HERE THEN HANG AROUND A WHILE 


WAITMS 1 


;WAIT FOR 1 MILLI-SECONDS 


LET TIMSAV : TIMSAV - #1 ; COUNTING DOWN 
ENDLOOP ; CONTINUED AT THE TOP 


; ONLY 2 WAVS TO GET HERE 

1) . WE RAN OUT OF TIME ERROR . ' 

2) . THE BIT IS IN THE CORRECT CONDI T ION— GOOD . 


IF8 FLAG EQ #TRUE THEN 



CMPB 


FLAG.*TRUE 




BNE 


$244 

return no. error 

; GOOD 

$244: 

BR 


$23< 

ENDIF 

; BAD 

SEC 



RETURN ERROR 




BR 


$236 



REGSAV: 

.WORD 

0 




TIMSAV: 

.WORD 

0 




FLAG: 

.BYTE 

0 




HOLDSC : 

.BYTE 

0 

; WE 

ARE DONE GO BACK HOME 






ENDRTN 


$235: 

CLC 





$236: 

RTS 


PC 
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SEO 0089 


012620 


3851 

012620 



WAIT: 



3852 

01 2620 






3853 

012626 






3854 

012626 

016501 

000000 


MOV 

T IME (R5) ,R1 

3855 

012632 






3856 

012632 

012702 

000001 


MOV 

A1,R2 

3857 

012636 

000402 



BR 

$2*. 7 

3858 

012640 



$250: 



3859 

012640 

062702 

000001 


ADD 

A01.R2 

3860 

012644 



$247: 



3861 

012644 

020201 



CMP 

R2.R1 

$2$1 

3862 

012646 

101010 



B HI 


*************************************************************** 
ROUTINE :UAIT 

THIS ROUTINE IS USED TO DELAY EXECUTION OF THE 
MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 

THIS IS ACCOMPLISHED BY INCREMENTING A 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MILLI SEC. 

*************************************************************** 

ROUTINE WAIT <TIME> 

IT: 

PUSH <R1 ,R2,R3> 

LET R1 := TIME(R5) 

MOV TIME (R5 > ,R1 

INCRU R 2 FROM AT TO R1 BY AT 


012650 


INCR R3 FROM A 0 TO A100 BY AT 


3864 

012650 

005003 


CLR 

R3 



3865 

012652 

000401 


BR 

$252 



3866 

012654 


$253: 





3867 

012654 

005203 


INC 

R3 



3868 

012656 


$252: 





3869 

012656 

020327 000100 


CMP 

R3.A100 

$2$4 



3870 

012662 

003001 


BGT 



3871 

012664 






ENDINC 

3872 

012664 

000773 


BR 

$253 



3873 

012666 


$254: 





3874 

012666 





END INC 


3875 

012666 

000764 


BR 

$250 



3876 

012670 


$?51: 





3877 

012670 





POP 

<R3.R2.R1> 

3878 

Cl 2676 




ENDRTN 



3879 

012676 


$245: 





3880 

012676 


$246: 





3881 

012676 

000207 


RTS 

PC 
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3882 

3883 

3884 . S8TTL ROUTINE TO SIZE THE BUS 

3885 


3886 

012700 

005737 

00 1 252 


SIZE: 

TST 

SDEVM 

;8R IF INITIALLY SET 

3887 

012704 

001060 




BNE 

4$ 

.-BYPASS AUTO-SIZING 

3888 









3889 

012706 

012737 

013610 

000004 

1$: 

MOV 

#INTSRV.ERRVEC 


3890 

012714 

012737 

000340 

000006 


MOV 

#PR7.ERRVEC*2 


3891 









3892 

012722 

013737 

001250 

013514 


MOV 

SQASE . TMP6 


3893 

012730 

012737 

000001 

013512 


MOV 

#1,SFTREG 


3894 









3895 

012736 

005037 

013616 


2$: 

CLR 

INTFLAG 


38% 

01 7742 

005777 

000546 



TST 

STMP6 

;SEE IF THERE 

3897 

012746 

005737 

013616 



TST 

INTFLAG 

; GOT INTERRUPT? 

3898 

012752 

001003 




BNE 

3$ 

;8R IF YES (NO DEVICE) 

3899 

012754 

053737 

01351? 

001252 


BIS 

SFTREG.SDEVM 

.-ELSE THERE, SET MAP 

3900 









3901 

012762 

062737 

000010 

013514 

3$: 

ADD 

#10, TMP6 

;G0 TO NEXT CHANNEL 

3902 

012770 

006337 

013512 



ASL 

SFTREG 


3903 

012774 

001360 




BNE 

2$ 

;8R IF MORE TO GO 

3904 









3905 

012776 

012737 

000006 

000004 


MOV 

#6.ERRVEC 

.-RESTORE 

3906 

013004 

005037 

000006 



CLR 

ERRVfC*? 


3907 









3908 

013010 

005737 

001252 



TST 

SDEVM 

.-ANYONE THERE? 

3909 

013014 

001014 




BNE 

4$ 

;8R IF ves 

3910 

013016 





TYPTXT 

«CRLF>!NO DEV 

TO TEST I > 

3911 

013044 

000777 




BR 

. 

.-LOOP HERE TILL PROBLEM FIXED 

3912 








;& RESTART AT 200 

3913 

013046 

105737 

001221 


4$: 

T STB 

SUSWR+1 

.-SEE IF ANY CONSOLE 

3914 

01 3052 

001434 




BEQ 

6$ 

;8R IF NONE 

3915 








3916 

013054 

010046 




MOV 

RO, -(SP) 

.-SAVE RO 

3917 

013056 

113700 

001221 



Move 

SUSWR+1 ,R0 

;GET CONSOLE DEVICE X2 

3918 

013062 

020027 

000010 



CMP 

R0.A10 


3919 

013066 

003005 




BGT 

5$ 

;8R IF TOO HI 

3920 

01 3070 

056037 

013516 

001252 


BIS 

TA8L1-2(R0).$DEVM ;SE T CONSOLE BIT ON MAP 

3921 

013076 

012600 




MOV 

(SP)+,RO 

.-RESTORE RO 

3922 

013100 

000421 




BR 

6$ 


3923 







3924 

013102 




5$: 

TYPTXT 

«CRLF>! CONSOLE 

IN $USWR WRONG !> 

3925 

013140 

000137 

014362 



JMP 

$EOP 

.-START ALL OVER 

3926 








.-STACK WILL RESET IN ’LOOP* 

3927 

013144 

013737 

001252 

013502 

6$: 

MOV 

SDEVM.MASK1 


3928 

013152 

013737 

001252 

013504 


MOV 

SDEVM.MASK2 


3929 

013160 

013737 

001252 

013506 


MOV 

SDEVM.MASK3 


3930 

3931 
5932 

013166 

013737 

001252 

013510 


MOV 

SDEVM.MASK4 


013174 

042737 

177760 

013502 


BIC 

# A C<17>.MASKl 

.-SAVE ONLY MODULE 1 CHANNELS 

3933 

013202 

042737 

177417 

013504 


BIC 

#*C<360>,MASK2 

2 

3934 

013210 

042737 

170377 

O 1 3506 


BJC 

# A C<7400>.MASK3 

3 

3935 

3936 

3937 

013216 

042737 

007777 

013510 


BIC 

#*C<1 70000> ,MASK4 ; 4 

01 5224 

006237 

O 1 3504 



AS R 

MASK2 



SEQ 0090 
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3938 

013230 

006237 

013504 



ASR 

MASK 2 

3939 

013234 

006237 

013504 



ASR 

MASK2 

3940 

013240 

006237 

013504 



ASR 

MASK2 

3941 








3942 

7ft/ T 

01 3244 

000337 

013506 



SUAB 

MASK3 

3944 

013250 

000337 

013510 



SWAB 

MASK4 

394b 

013254 

006237 

013510 



ASR 

MASK4 

3946 

013260 

0062*7 

013510 



ASR 

MASK4 

3947 

013264 

006237 

013510 



ASR 

MASK4 

3948 

013270 

006237 

013510 



ASR 

MASK4 

3950 

01 3274 





TYPTXT 

«CRLF>.WILL TEST 

3951 








3952 

01 3320 

012700 

013502 



MOV 

#MASK1 .RO 

3953 

01 3324 

012737 

000061 

013474 


MOV 

#61 .MODNUM 

3954 

7nc C 

013332 

012737 

000060 

013500 


MOV 

#60. CHNUM +2 

5^7 JJ 

3956 

013340 

012037 

013516 


7$: 

MOV 

(RO)+,MSK 

3957 

01 3344 

001001 




BNE 

8$ 

3958 

TOCO 

013346 

000441 




BR 

11$ 

3960 

013350 




8$: 

TYPTXT 

«CRLF>. MODULE .> 

3961 

013370 

104401 

013474 



TYPE 

.MODNUM 

3962 

7fU 7 

013374 





TYPTXT 

<. CHANNEL > 

J70J 

3964 

013416 

032737 

000001 

013516 

9$: 

BIT 

#8IT0,MSK 

3965 

013424 

001402 




BEQ 

10$ 

3966 

013426 

104401 

013476 



TYPE 

.CHNUM 

yitf 

3968 

013432 

005237 

013500 


10$: 

INC 

CHNUM+2 

3969 

013436 

006237 

013516 



ASR 

MSK 

3970 

013442 

001 365 

» 



BNE 

9$ 

3971 

013444 

012737 

000060 

013500 


MOV 

#60. CHNUM+2 

yyf c 
3973 

01 T ;52 

005237 

013474 


11$: 

INC 

MODNUM 

3974 

013456 

023727 

013474 

000065 


CMP 

MODNUM. #65 

3975 

013464 

001325 




BNE 

7$ 

3976 

013466 

104401 

001171 



TYPE 

,$CRL F 

3977 

013472 

000207 




RTS 

PC 

3978 








3979 

013474 

000061 



MODNUM: 

.ASCIZ 

/I/ 

3980 

013476 

020040 

000060 


CHNUM: 

.ASCIZ 

/ 0/ 

3981 








3982 

013502 

000000 



MASK1 : 

0 


3983 

013504 

000000 



MASK 2 : 

0 


3984 

013506 

000000 



MASK 3: 

0 


3985 

013510 

000000 



MASK4: 

0 


3986 

013512 

000000 



SFTREG: 

0 


3987 

013514 

000000 



TMP6: 

0 


3988 

013516 

000000 



MSK : 

c 


3989 

013520 

000010 



TABL1 : 

10 


3990 

01 3522 

000200 




200 


3991 

013524 

004000 




4000 


3992 

013526 

100000 




100000 


399* 









SEQ 0091 


.•RIGHT JUSTIFY MODULE 2 CHANNELS 

3 


: .<CRLF» 


4 


; INI T MOD # 

; INI T CHANNEL # 


;BR IF ANY THERE 
.-ELSE TRY NEXT MODULE 


;6R IF NOT TESTING THAT CHANNEL 
.■ELSE TYPE IT 

;8UMP CHANNEL CTR 

;BR IF MORE TO CHECK 
.-ELSE RESET CH # 

.-BUMP MOD # 

;A.L DONE? 

;8R IF NO 

.-ELSE EXIT 


CONTAINS MODULE 1 CHANNELS 
2 

3 

4 


SET SDEVM IF CONSOLE ON MODULE 1 

2 

3 

A 
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SEQ 0092 


3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 


013530 
013536 
013542 
013550 
01 3552 
013556 

013560 
013566 
013574 
01 3602 

013604 

013606 


013610 

013610 

013610 

013610 

013614 

013614 

013616 


113737 

006237 

023737 

001403 

005037 

000207 

013737 

012737 

012737 

000207 

000000 

000000 


001221 
01 3606 
01 3606 

013604 


001144 

000060 

000001 


005237 013616 

000002 

000000 


.SBTTL ROUTINE TO TEST FOR CONSOLE DEVICE 


013606 TSTCON: M0V8 SUSWR+1.TMP7 

ASR TMP7 

001206 CMP TMP7.SUNIT 

BEO IS 


CLR CONSOLE 

RTS PC 


014156 1$: 

014160 
O 1 3604 


STKS. ADDRESS 
#TKVEC, VECTOR 
#TRUE. CONSOLE 
PC 


CONSOLE: 
TMP7 : 


GET CONSOLE INFO ONLY 
RIGHT JUSTIFY 

SEE IF UNIT INDER TEST HAS CONSOLE 
8R IF YES 

ELSE CLEAR STALE INFO 


FORCE TTY ADDRESS 
VECTOR 

SET FLAG 


.-FLAG, 1= TESTING CONSOLE DEVICE 
;HOLD CONSOLE » 


.SBTTL INTSRV INTERRUPT SERVICE ROUTINE 

‘•*********************** 4 *************************************** 

Y* THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 

'INTFLAG' EACH TIME IT is CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE UILL KNOW WHAT 
;* TO LOOK FOR. 

••♦IT************************************************************* 

BGNSRV INTSRV .’GLOBAL INTERRUPT SERVICE ROUTINE 

INTSRV: 

;ADD 1 TO ’INTERRUPT OCCURED' FLAG 

LET INTFLAG := INTFLAG ♦ A1 

INC INTFLAG 

ENDSRV ; THAT'S ALL 

RTI 

INTFLAG: 0 
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<,033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 


4043 

01 3620 

013737 

001250 

014156 

CYCLE: 

MOV 

4044 

013626 

013737 

001244 

0 1 4160 


MOV 

4045 







4046 

013634 

023727 

001206 

000005 


CMP 

4047 

013642 

001013 




BNE 

4048 

013644 

005037 

014166 



CLR 

4049 

01 3650 

005037 

014164 



CLR 

4050 

013654 

012737 

000001 

001206 


MOV 

4051 

013662 

005037 

014170 



CLR 

4052 

013666 

000137 

014362 



JMP 

4053 







4054 

013672 

013700 

001206 


IS: 

MOV 

4055 

013676 

006300 




ASL 

4056 

013700 

066037 

014114 

014156 


ADD 

4057 

013706 

066037 

014114 

014160 


ADD 

4058 

013714 

017037 

014124 

014162 


MOV 

4059 







4060 

013722 

005037 

013604 



CLR 

4061 

013726 

005737 

014162 



TST 

4062 

013732 

001004 




BNE 

4063 

013734 

005237 

001206 



INC 

4064 

013740 

000137 

01 3620 



JMP 

4065 







4066 

013744 

023727 

014166 

000001 

2$: 

CMP 

4067 

013752 

001452 




BEQ 

4068 

013754 

023727 

014164 

000004 


CMP 

4069 

013762 

001021 




BNE 

4070 







4071 

013764 

005037 

014164 



CLR 

4072 

013770 

032737 

000020 

001220 


BIT 

4073 

01 3776 

001004 




BNE 

4074 

014000 

005237 

001206 



INC 

4075 

014004 

000137 

01 3620 



JMP 

4076 







4077 

014010 

012737 

000001 

014166 

3$: 

MOV 

4078 

014016 

005037 

014170 



CLR 

4079 

014022 

000137 

01 3620 



JMP 

4080 







4081 

014026 

013700 

014164 


4$: 

MOV 

4082 

014032 

006300 




ASL 

4083 

014034 

066037 

014136 

014156 


ADD 

4084 

014042 

066037 

014136 

014160 


ADD 

4085 

014050 

036037 

014146 

0 1 4162 


bjt 

4086 

014056 

001413 




BEQ 

4087 







4088 

014060 

023727 

0 1 4 1 64 

000003 


CMP 


C 8 
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.S8TTL ROUTINE TO SET UP FOR NEXT MODULE /CHANNEL ADDRESS 


ft************************************************************** 

i THIS ROUTINE CAUSES ADRS TO POINT TO THE 

* ADDRESS OF DL V1 1 — J UNDER TEST, ADRS ♦ 2 TO 

* POINT TO THE VECTOR OF THE DL VI 1 — J UNDER TEST. 

* *************************************************************** 
0 

SBASE, ADDRESS 
SVECT1, VECTOR 

SUNIT.A5 

1 $ 

PHASE 2 
CHAN 

#1 ,$UNI T 
P1CNT 
$EOP 

$UNIT,RO 
RO 

TAAL2-2(R0) , ADDRESS 
TA8L2-2(R0) .VECTOR 
3TABL3-2(R0),MASK 

CONSOLE 
MASK 

2 $ 

SUNIT 
CYCLE 

PHASE2.ATRUE 

6 $ 

CHAN.A4 

4$ 

CHAN 

AURAP.SUSWR 
3$ 

SUNIT 
CYCLE 

ATRUE.PHASE2 
P1CNT 
CYCLE 

CHAN.RO 
RO 

TABL4(R0) .ADDRESS 
TA8L4(R0), VECTOR 
TA8L5 (RO) .MASK 
7$ 


SEQ 0093 


DONE ALL MODULES? 
QR IF NO 
RE-INIT 


;& EXIT BACK TO 'LOOP' 

.•STACK UILL GET RESET THERE. 

;MULT BY 2 TO INDEX INTO TABLES 
;ADD MODULE OFFSET 
;ADD VECTOR OFFSET 
.-STORE CHANNELS IN 'MASK' 


ANY CHANNELS TO BE TESTED? 

8 R IF YES 
ELSE BLMP UNIT A 
TRY AGAIN 

DOING PHASE 2? 

BR IF YES 

ELSE. DONE ALL CHANNELS? 

BR IF NO 

ELSE BACK TO 0 
DOING DATA WRAP TESTS? 

BR IF YES 

ELSE GO TO NEXT UNIT. NO PHASE 2 
6 DO IT 


; GO TO PHASE 2 TESTING 


MUL T BY 2 TO INDEX TABLE 
ADD CHANNEL OFFSET 
ADD VECTOR OFFSET 
IS T HAT CHANNEL TO BE TESTED’’ 
BR IF NO 


CHAN, #3 


; IS IT CHAN 3? 
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ROUTINE TO SET UP FOR NEXT MODULE /CHANNEL ADDRESS 


SEO 0094 


4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 
<J26 


014066 

014070 

014074 

014100 

014104 

014106 

014112 

014116 

014120 

014122 

014124 

014126 

014130 

014132 

014134 

014136 

014140 

014142 

014144 

014146 

014150 

014152 

014154 

014156 

014160 

014162 

014164 

014166 

014170 


001002 

004737 013530 

005237 014164 

012701 OK 156 
000207 

005237 014164 

0001 37 01 3620 

000000 

000040 

000100 

000140 

013502 

013504 

013506 

013510 

000000 

000010 

000020 

000030 

000001 

000002 

000004 

000010 

000000 

oooooo 

000000 

oooooo 

oooooo 

oooooo 



BNE 

5$ 

;BR IF NO 


JSR 

PC , TSTCON 

.-ELSE SEE IF ITS THE CONSOLE 

5$: 

INC 

CHAN 

;BUMP CHANNEL CTR FOR NEXT T 

6$: 

MOV 

AADDRESS.ADRS 



RTS 

PC 

; GO TO PHASE 1 TESTS 

7$: 

INC 

CHAN 



JMP 

CYCLE 

; TRY AGAIN 

TABL2: 

0 

.•OFFSET 

FOR MODULE 1 


40 


2 


100 


3 


140 


4 

TA8L3: 

MASK1 

.•MODULE 

1 CHANNEL DATA 


MASK2 


2 


MASK3 


3 


MASK4 


4 

TA3L4: 

0 

.-CHANNEL 0 OFFSET 


10 


1 


20 


2 


30 


3 

TABL5: 

BITO 

;8IT TO 

TEST CHANNEL 0 PRESENT 


BI T 1 


1 


BIT2 


2 


BIT3 


3 


ADDRESS: 

VECTOR: 

MASK: 

CHAN: 

PHASE 2: 

P1CNT: 


; C TR TG PRINT 'PHASE V ONLY ONCE 


CVDLAAO DLVil-J TEST MACY11 306(1063) 1 7-NOV-78 09:39 PAGE 96 

CVDLABJPII 17-N0V-78 09:38 ROUTINE TO SET UP FOR NEXT MODULE /CHANNEL ADDRESS 


SEQ 0095 


014172 

014172 

014172 

014212 

014220 

014240 

014246 

014256 

014274 

014302 

014320 

014326 

014346 

014354 

014360 

014360 

014360 

014360 


MYTYPE: 


113737 001114 001176 


104401 00H71 


000207 


$255 : 
$256 : 


TYPTXT 

TYPOCT 

TYPTXT 

MOVB 

TYPOCS 

TYPTXT 

TYPOCT 

TYPTXT 

TYPOCT 

TYPTXT 

TYPOCT 

TYPE 


«CRLF>*TEST M 
STESTN 

<*, ERROR * *> 

SITEMB.SFATAL 

SFATAL 

<*,PC = *> 

SERRPC 

< * , C SR : *> 

DLADD 

<*, VECTOR: *> 

DLVEC 

.SCRLF 


ROUTINE MYTYPE 


APT FATAL ERROR NUMBER 


ENDRTN 


F 8 
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4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 014362 


.S8TTL END OF PASS ROUTINE 


•**********************************************************»»*< 
'•INCREMENT THE PASS NUMBER ($PASS) 

•INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
•TYPE ‘END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 

•IF THERES A MONITOR GO TO IT 
•IF THERE ISN’T JUMP TO LOOP 


$E OP : 


4157 

014362 

000004 


4158 

014364 

005037 

001102 

4159 

014370 

005037 

001160 

4160 

014374 

005237 

001202 

4161 

014400 

042737 

100000 001202 

4162 

014406 

005327 


4163 

014410 

000001 


4164 

014412 

003022 


4165 

014414 

012737 


4166 

014416 

000001 


4167 

01442C 

014410 


4168 

014422 

104401 

014467 

4169 

014426 

013746 

001202 

4170 

014432 

104405 


4171 

014434 

104401 

014464 

4172 

014440 

013700 

000042 

4173 

014444 

001405 


4174 

014446 

000005 


4175 

014450 

004710 


4176 

014452 

000240 


4177 

014454 

000240 


4178 

014456 

000240 




SCOPE 



CLR 

STSTNM 


CLR 

STIMES 


INC 

SPASS 


BIC 

#100000. SPASS 


DEC 

(PC) + 

SEOPCT: 

.WORD 

1 


BGT 

SDOAGN 


MOV 

(PC)+.3(PC)+ 

SENDCT: 

.WORD 

$EOPC T 

1 


TYPE 

.SENDMG 


MOV 

TYPDS 

SPASS, -(SP) 


TYPE 

.SENULL 

SGET42: 

MOV 

5k#42.R0 


BEQ 

RESET 

SDOAGN 

SEND AD : 

JSR 

NOP 

NOP 

NOP 

PC.(RO) 


;;ZERO THE TEST NUMBER 
; ; ZERO THE NIWBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 
; ; DON’T ALLOW A NEG. NUMBER 
;;LOOP? 

;;YES 

; .-RESTORE COUNTER 


TYPE "END PASS »" 

SAVE SPASS FOR TYPEOUT 

GO TYPE-DECIMAL ASCII WITH SIGN 

TYPE A NULL CHARACTER 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

AC Til 


4179 014460 


SDOAGN: 


4180 014460 000137 JMP 8<P C)> ; .-RETURN 

4181 014462 001732 SRTNAD: .WORD LOOP 

4182 014464 377 377 000 SENULL : .BYTE -1.-1. C ;;NULL CHARACTER STRING 

418? 014467 015 042412 042116 tt'NDMG : .ASCIZ <1 5><1?>/END PASS #/ 

4184 Cl 44 74 05004 0 0 51501 020123 

418 C 014502 000043 


SEQ 0096 
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SEO 0097 


<*186 

418? 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 


.S8TTL TYPE ROUTINE 

**************************************************************** 

•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE Wl TH A 0 BYTE. 

•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•N0TE1 : $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2: SF ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

•NOTE 3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


4197 





• * 

TYPE 

4198 





■•OR 


4199 





• * 

TYPE 

4200 





• » 

MESADR 

4201 





• * 


4202 







4203 

014504 

105737 

001157 


$TYPE: 

TSTB 

4204 

014510 

100002 




BPL 

4205 

014512 

000000 




HALT 

4206 

014514 

000430 




BR 

4207 

014516 

010046 



1$: 

MOV 

4208 

014520 

01 7600 

000002 



MOV 

4209 

014524 

122737 

000001 

001214 


CMP8 

4210 

014532 

001011 




BNE 

4211 

014534 

132737 

000100 

001215 


BITB 

4212 

014542 

001405 




BEQ 

4213 

014544 

010037 

014554 



MOV 

4214 

014550 

004737 

015550 



JSR 

4215 

014554 

000000 



61$: 

.WORD 

4216 

014556 

132737 

000040 

001215 

62$: 

BI T8 

4217 

014564 

001003 




BNE 

4218 

014566 

112046 



2$: 

M0V8 

4219 

014570 

001005 




BNE 

4220 

014572 

005726 




TST 

4221 

014574 

012600 



60$: 

MOV 

4222 

014576 

062716 

000002 


3$: 

ADD 

4223 

014602 

000002 




RTI 

4224 

014604 

122716 

00001 1 


4$: 

CMPB 

4225 

014610 

001430 




BEQ 

4226 

014612 

122716 

000200 



CMP8 

4227 

014616 

001006 




BNE 

4228 

014620 

005726 




TST 

4229 

014622 

104401 




TYPE 

4230 

014624 

001 1 71 




$CRLF 

4231 

014626 

105037 

014762 



CLR8 

4232 

014632 

000755 




BR 

4233 

014634 

004737 

0147 1 6 


5$: 

JSR 

4234 

014640 

123726 

001156 


6$: 

CMPB 

4235 

014644 

001350 




BNE 

4236 

014646 

01 3746 

001154 



MOV 

4237 







4238 

014652 

105366 

000001 


7$: 

DFC8 

4239 

014656 

002770 




BLT 

4240 

014660 

004737 

014716 



JSR 

424 1 

014664 

105337 

0 1 4762 



DECS 


•CALL: 

*1) USING A TRAP INS T RUCTION 
* TYPE .MESADR 


; ; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 


tTPFLG 

1 $ 

3$ 

RO.-(SP) 
32<SP).R0 
#AP TENV.tENV 
62$ 

#APT SPOOL. $ENVM 
62$ 

R0.61 $ 

PC ,$AT Y3 
0 

#APTCSUP.$ENVM 

60$ 

(RO)-t-.-(SP) 

4$ 

(SP) + 

(SPX.RO 

#2.(SP) 

/THT.(SP) 

8 $ 

tfCRLF. (SP) 

5$ 

(S P>* 


$CHARCNT 

2 $ 

PC .$T YPE C 
$F ILLC . ( SP) ♦ 

2 $ 

$NULL ,-CSP) 

1 (SP) 

6 $ 

PC,$TYPEC 

$CHARCNT 


IS THERE A TERMINAL? 

BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO. GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO. GO CHECK FOR CONSOLE 

SE-UP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

VFS SKIP TYPF OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <CRLF> 

POP <CR><LF> EQUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLFR CHARS.? 

IF NO GO GET NEX T CHAR. 

GET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IF NO— GO POP THE NULL OFF OF STACK 
GO TYPE A NULL 
.DO NOT COUNT AS A COUNT 


H 
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TYPE ROUTINE 


4242 

/ y 

014670 

000770 



BR 

7$ 

4244 





.•HORIZONTAL TAB 

PROCESSOR 

4245 







4246 

014672 

112716 

000040 


8$: MOVB 

#' ,(SP) 

4247 

014676 

004737 

014716 


9$: JSR 

PC. STYPEC 

4248 

014702 

132737 

000007 

014762 

BITS 

A7.SCHARCNT 

4249 

014710 

001372 



BNE 

9S 

4250 

014712 

005726 



T ST 

(SP) + 

4251 

014714 

000724 



BR 

2$ 

4252 

014716 

105777 

164226 


STYPEC: TST8 

SSTPS 

4253 

014722 

100375 



BPL 

STYPEC 

4254 

014724 

116677 

000002 

164220 

MOVB 

2(SP) .SSTPB 

4255 

014732 

122766 

000015 

000002 

CMPB 

ACR. 2(SP) 

4256 

014740 

001003 



BNE 

IS 

4257 

014742 

105037 

014762 


CLR8 

SCHARCNT 

4258 

014746 

000406 



BR 

STYPEX 

4259 

014750 

122766 

000012 

000002 

1$: CMPB 

ALF,2(SP) 

4260 

014756 

001402 



BEQ 

STYPEX 

4261 

014760 

105227 



INC8 

(PC) + 

4262 

014762 

000000 



SlHARCNT : .WORD 

0 

4263 

014764 

000207 



STYPEX: RTS 

PC 

4264 








SEQ 0098 

.'.LOOP 


REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 

GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 

LOAD CHAR TO BE TYPED INTO DA T A REG. 
IS CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 

YES — CLEAR CHARACTER COUNT 
EXIT 

IS CHARACTER A LINE FEED? 

BRANCH IF YES 
COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 


CyDLAAO DLVil-J TEST MACYll 
CVDLAB.P1 1 17-NOV-78 09:38 


30G( 1063) 1 7-NO V- 78 09:39 PAGE 

TTY INPUT ROUTINE 

.S8TTL TTY INPUT ROUTINt 


SEO 0099 


OK 766 
OK 774 
0K776 
015002 
015004 
015010 
015014 
015020 
015022 
015030 


022737 

001074 

105777 

100071 

117746 

042716 

022726 

001062 

123727 

001456 


000 1 76 001140 

164142 

164136 
1 77600 
000007 

001134 C00001 


.ENA8L LSB 

; 'SOFTWARE SWITCH REGISTER .HANGE ROUTINE. 

; ‘ROUTINE IS ENTERED FROM 'HE TRAP HANDLER. AND WILL 

.•‘SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

.‘WHEN OPERATING IN TTY F.AG MODE. 


SCKSWR: CMP 
BNE 
TSTB 
BPL 
M0V8 
BIC 
CMP 
BNE 
CMP8 
BCQ 


ASWREG.SWR 

15$ 

a$TKS 

15$ 

a$TKS.-(SP) 
#*C1 77, (SP) 
#7, ( SP) ♦ 

15 $ 

$A JT08.A1 
15 $ 


IS THE SOFT-SWR SELECTED? 
BRANCH IF NO 
CHAR THERE? 

IF NO. DON’T WAIT AROUND 
SAVE THE CHAR 
STRIP-OFF THE ASCII 
IS IT A CONTROL G? 

NO, RETURN TO USER 

ARE WE RUNNING IN AUTO-MODE 9 

BRANCH IF YES 


NCOJ 

4286 

015032 

104401 

015513 



TYPE 

.$cntlg 

.-ECHO THE CONTROL -G (*G) 

4287 

015036 

104401 

015520 


$GTSWR: 

TYPE 

.$MSWR 

.•TYPE CURRENT CONTENTS 

4 288 

015042 

01 3746 

000176 



MOV 

SWREG.-(SP) 

.-SAVE SWREG FOR TYPEOUT 

4289 

015046 

104402 




TYPOC 


;G0 TYPE-OCTAL ASCII (ALL DIGI 

4290 

015050 

104401 

015531 



TYPE 

,$MNEW 

.■PROMPT FOR NEW SWR 

4291 

015054 

005046 



1 9$: 

clr 

-iSP) 

.■clear colnter 

4292 

015056 

005046 




CLR 

-(SP) 

;THE NEW SWR 

4293 

015060 

105777 

164060 


7$: 

TSTB 

a$TKS 

.CHAR THERE 9 

4294 

015064 

100375 




BPL 

7$ ; 

; IF NOT TRY AGAIN 

4295 









4296 

015066 

1 1 7 746 

164054 



MOVB 

a$TKB.-(SP) 

.•PICK. UP CHAR 

4297 

015072 

042716 

1 77600 



BIC 

#*C177.(SP> 

.-MAKE IT 7-61 T ASCII 

4298 









4299 









4300 









4301 

015076 

021627 

000025 


9$: 

CMP 

(SP) ,#25 

; I S IT A CONTROL -U? 

4302 

Cl 5102 

001005 




BNE 

10$ 

.•BRANCH IF NOT 

4303 

015104 

104401 

015506 



TYPE 

,$CNTtU 

; YES. ECHO CONTROL -U ( A U) 

4304 

015110 

062706 

000006 


20$: 

ADD 

A6.SP 

.•IGNORE PREVIOUS INPUT 

4305 

015114 

000757 




BR 

19$ 

.•LET’S TRY IT AGAIN 

4306 









4307 









4308 

015116 

021627 

000015 


10$: 

CMP 

(SP),#15 

; IS IT A <CR>? 

4309 

015122 

001022 




BNE 

16$ 

.•BRANCH IF NO 

4310 

015124 

005766 

000004 



TST 

4(SP) 

; YES. IS IT THE FIRST CHAR 9 

4311 

015130 

001403 




BEQ 

11$ 

.•BRANCH IF YES 

4312 

015132 

016677 

000002 

164000 


MOV 

2(SP),aswR 

.-SAVE NEW SWR 

4313 

015140 

062706 

000006 


1 1 $: 

ADD 

#6.SP 

.-CLEAR UP STACK 

4314 

015144 

104401 

001171 


K$: 

TYPE 

,$CRLF 

.-ECHO <CR> AND <L F> 

4315 

015150 

123727 

001135 

000001 


CMP8 

$INTAG.#1 

;RE-ENABLE TTY K8D INTERRUPTS? 

<.316 

015156 

001003 




BNE 

’5$ 

.■BRANCH IF NOT 

451 7 

015160 

012777 

000100 

163756 


MOV 

Aioo,a$TKS 

; RE -ENABLE TTY KBD INTERRUPTS 

4318 

015166 

000002 



15$: 

R T I 


.•RETURN 

4319 

015170 

004 7 37 

014716 


'Ct: 

J SR 

Pv. ,$ T YPEC ; 

.•ECHO CHAR 

4 32C 

015174 

02 1 62 7 

000060 



CMP 

SP).tf60 ; 

.CHAR < 0 9 
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<♦321 

A 322 

A 323 

A32A 

A325 

A 326 

4327 

A 328 

A 329 

A330 

A331 

A332 

A333 

A33A 

A335 

A336 

4337 

A 338 

A339 

A3A0 

A3A1 

A3A2 

A3A3 

A3AA 

A3AS 

A3A6 

<♦34 7 

A3A8 

A3A9 

A350 

A351 

A352 

A353 

A35A 

A355 

A 356 

A357 

A358 

A359 

A 360 

A361 

A 362 

A 363 

A 364 

A365 

A366 

A367 

A368 

A 369 

A370 

A371 

A 372 

A373 

A37A 

A375 

4376 


015200 
015202 
015206 
015210 
01 521 A 
015220 
015222 
01522A 
015226 
015230 
01523A 
0152A0 
0152A2 
0152A6 


015250 
015252 
01 5260 
01526A 
015266 
01527A 
015302 
015310 
015312 
015316 
015320 
01532A 
015330 
015334 
015336 
015340 
015346 
015350 
015356 
015360 
015366 


002420 
021627 
00301 5 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
1 04401 
000720 


01 1646 
016666 
105777 
100375 
1 1 7766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 


000067 

000060 

000002 


000002 

177776 

001170 


000002 


000004 

000004 

000023 


000004 

163660 

163654 
1 77600 
000004 

163626 

163622 
1 77600 
000021 


000004 000140 
000004 000175 
000040 000004 


015370 010346 
015372 012703 
015376 022703 


015476 
O 1 5506 



BLT 

18$ 


CMP 

(SP).#67 


BGT 

18$ 


BIC 

#60, (SP) ♦ 


TST 

2(SP) 


BEQ 

17$ 


ASL 

(SP) 


ASL 

(S P) 


ASL 

(SP) 

'7$: 

INC 

2(SP) 


BIS 

-2(SP). (SP) 


BR 

7$ 

1 8$ : 

TYPE 

, $QUE S 


BR 

20$ 

.DSA8L 

LS8 


A A A A 

♦THIS 

AAAAAAAtf 

ROUTINE 

WIL' INPUT A 

♦CALL 



A 

RDCHR 


A 

A 

return 

HERE 

SRDCHR 

MOV 

(SP).-(SP) 


MOV 

4(SP).2(SP> 

1$: 

TSTB 

a$TKS 


BPL 

1$ 


MOVB 

a$TKB,4(SP) 


BIC 

# A C<1 77>,4 ( 


CMP 

4(SP).#23 


BNE 

3$ 

25: 

TSTB 

a$TKS 


BPL 

2$ 


MOVB 

a$TKB,-(SP) 


BIC 

# A C177,(SP) 


CMP 

(SP) + ,#21 


BNE 

2$ 


BR 

1$ 

35: 

CMP 

4 (SP) .#140 


BLT 

4$ 


CMP 

4 ( SP) ,#1 75 


BGT 

4$ 


BIC 

#40.4 ( SP) 

4$: 

RTI 


♦THIS 

^AAAAAAAI 

ROUTINE 

WILL INPUT A 

♦CALL 



A 

RDLIN 


A 

A 

return 

HERE 

5RDL IN 

MOV 

R3,-( SP) 

'l: 

MOV 

#: t tyin,r3 

25: 

CM n 

#$ttyin*8.. 


BRANCH If YES 
CHAR > 7? 

BRANCH IF YES 
STRIP-OFF ASCII 
IS THIS THE FIRST CHAR 
BRANCH IF YES 
NO, SHIFT PRESENT 
CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CRXLF> 

SiMULATE CONTROL -U 


INPUT A SINGLE CHARACTER FROM THE TTY 


INPUT A SINGLE CHARACTER FROM THE TTv 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 


PUSH DOWN THE PC 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ THE TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP LNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7 -BIT ASCII 

IS IT A CONTROL -0? 

IF NOT DISCARD F 
YES, RESLME 
IS IT UPPER CASE’’ 
BRANCH IF YES 
IS IT A SPECIAL CHAR? 
BRANCH IF YES 
MAKE IT JPPER CASE 
GO ElACK TO USER 


; ; INPU T A STRING FROM THE TTY 

.-.ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 

; ; SAVF R3 
; ; GE T ADDRESS 
BUFFER FULL? 


K 8 
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43 77 

015402 

101405 




BLOS 

4$ 

4378 

015404 

104410 




RDCHR 


4379 

015406 

112613 




M0V8 

(SP)+,(R3) 

4380 

015410 

122713 

000177 


10$: 

CW>8 

01 77. (R3) 

4381 

015414 

001003 




BNE 

3$ 

4382 

015416 

104401 

001170 


4$: 

TYPE 

.SOUES 

4383 

015422 

000763 




BR 

1$ 

4384 

015424 

111337 

015474 


3$: 

M0V8 

(R3) ,9$ 

4385 

015430 

104401 

015474 



TYPE 

.9$ 

4386 

015434 

122723 

000015 



CMF’B 

*15.(R3)+ 

4387 

015440 

001356 




BNE 

2$ 

4388 

015442 

105063 

177777 



CLR8 

-1(R3) 

4389 

015446 

104401 

001 1 72 



TYPE 

,$LF 

4390 

015452 

012603 




MOV 

(SP1+.R3 

4391 

015454 

011646 




MOV 

(SP).-(SP) 

4392 

015456 

016666 

000004 

000002 


MOV 

4(SP),2(SP) 

4393 

015464 

012766 

015476 

000004 


MOV 

A$TTYIN.4(SP) 

4394 

015472 

000002 




RTI 


4395 

015474 

000 



9$: 

-BYTE 

0 

4396 

015475 

000 




.BYTE 

0 

4397 

015476 

000010 



$1 TYIN: 

• BLKB 

8. 

4398 

015506 

052536 

00501 5 

000 

$CNTLU: 

.ASCIZ 

/*U/<15><12> 

4399 

015513 

136 

006507 

000012 

$CNTLG: 

. AS C I Z 

/ A G/<1 5><1 2> 

4400 

015520 

005015 

053523 

020122 

SMSWR : 

.ASCIZ 

<1 5><12>/SWR 

4401 

015526 

020075 

000 





4402 

015531 

040 

047040 

055505 

SMNEW: 

.ASCIZ 

/ NEW = / 

4403 

015536 

036440 

000040 






SEO 0101 


* ■ Qft |F YES 

; ; GO READ ONE CHARACTER FROM THE TTY 
; ; GE T CHARACTER 
; ; I S IT A RUBOUT 
; ;SKIP IF NOT 
; ; TYPE A *?' 

;; CLEAR THE BUFFER AND LOOP 
;;ECH0 THE CHARACTER 

.-.CHECK FOR RETURN 
.-.-LOOP IF NOT RETURN 
;; CLEAR RETURN (THE 15) 

.-.-TYPE A LINE FEED 
; .-RESTORE R3 

; .-ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

;; RE TURN 

;; STORAGE FOR ASCII CHAR. TO TYPE 
;; TERMINATOR 

;; RESERVE 8 BYTES FOR TTY INPUT 
;; CONTROL "U" 

;; CONTROL * ’G‘ ’ 


L 8 
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4404 

4405 


. S0TTL APT COMMUNICATIONS ROUT 1/ 


4407 

015542 

112737 

OOOOOI 

016006 

lATYl : 

M0V8 

#1 .SFFLG 

4408 

015550 

112737 

OOOOOI 

016004 

SATY3: 

M0V8 

Jfl.SMFLG 

4409 

015556 

000403 




BR 

$ATYC 

4410 

015560 

112737 

OOOOOI 

016006 

SATY4: 

MOVB 

*1 .SFFLG 

4411 

015566 




$ATYC : 



4412 

015566 

010046 




MOV 

RO.-(SP) 

4413 

015570 

010146 




MOV 

Rl.-(SP) 

4414 

015572 

105737 

016004 



TSTB 

SMFLG 

4415 

015576 

001450 




BEQ 

5$ 

4416 

015600 

122737 

OOOOOI 

001214 


CMP8 

#APTENV,$ENV 

4417 

015606 

001031 




BNE 

3$ 

4418 

015610 

1 32737 

000100 

001215 


BITB 

MAP T SPOOL , SE NVM 

4419 

01 5616 

001425 




BEQ 

3$ 

4420 

015620 

017600 

000004 



MOV 

34(SP),R0 

4421 

01 5624 

062766 

000002 

000004 


ADD 

#2.4(SP) 

44 2? 

015632 

005737 

001 1 74 


1$: 

TST 

SMSGTYPE 

4423 

015636 

001375 




BNE 

1$ 

4424 

01 5640 

010037 

001210 



MOV 

RO.SMSGAD 

4425 

015644 

105720 



2$: 

TST8 

(RO)* 

4426 

015646 

001376 




BNE 

2$ 

4427 

015650 

163700 

001210 



SUB 

SMSGAD.RO 

4428 

015654 

006200 




AS R 

RO 

4429 

015656 

010037 

0012 1 2 



MOV 

RO.SMSGLGT 

4430 

015662 

012737 

000004 

001 1 74 


MOV 

#4, SMSGTYPE 

4431 

01 5670 

000413 




BR 

5$ 

4432 

015672 

017637 

000004 

015716 

3$: 

MOV 

34(SP>,4$ 

4433 

015700 

062766 

000002 

000004 


ADD 

#2.4 (SP) 

1 77776. -(SP) 

4434 

015706 

013746 

177776 



MOV 

4435 

015712 

004737 

014504 



JSR 

PC.STYPE 

4436 

015716 

000000 



4$ : 

.WORD 

0 

4437 

01 5720 




5$: 



4438 

015720 

105737 

016006 


1 0S : 

TSTB 

SFFLG 

4439 

015724 

001416 




BEQ 

12S 

4440 

015726 

00 .>737 

001214 



TST 

SENV 

4441 

015732 

001413 




BEQ 

12S 

4442 

015734 

0C5737 

001 1 74 


11$: 

TST 

SMSGTYPE 

4443 

015^4') 

001375 




BNE 

11$ 

4444 

015742 

017637 

000004 

001 1 76 


MOV 

34 (SP) .SFATAL 

4445 

015750 

062766 

000002 

000004 


ADD 

#2,4 (SP) 

4446 

015756 

005237 

001 1 74 



INC 

SMSGTYPE 

4447 

015762 

105037 

016006 


12$: 

CLR8 

SFFLG 

4448 

015766 

105037 

016005 



CLRB 

SLFLG 

4449 

015772 

105037 

016004 



CLR8 

$M C LG 

4450 

015776 

012601 




MOV 

(SP) +.R1 

4451 

016000 

012600 




MOV 

(SP) ♦.RO 

4452 

016002 

000207 




RTS 

PC 

4453 

016004 

000 



$MFLG: 

.BYTE 

0 

4454 

016005 

000 



$LFLG: 

.BYTE 

0 

4455 

016006 

000 



SFFLG: 

• BYTE 

0 

4456 


016010 




.FVEN 


4457 


000200 



APTSIZE 

-200 


4458 


OOOOOi 



APTENV=001 


4<,59 


000100 



APT SPOOL -100 



SEQ v. 1 


; ; T 0 REPORT FATAL ERROR 
; ; TO TYPE A MESSAGE 

; ; TO ONLY REPORT FATAL ERROR 

; ; PUSH RO ON STACK 
; ; PUSH R1 ON STACK 
;; SHOULD TYPE A MESSAGE? 

;; IF NOT: 8 R 

;; OPERATING UNDER APT 7 

; ; I F NOT: BR 

;; SHOULD SPOOL MESSAGES 7 

; ; I F NOT: BR 

; ; GE T MESSAGE ADDR. 

; ;BLMP RETURN ADDR. 

; ;SEE IF DONE W/ LAST XMISSI0N 7 
; ; I F NOT: WAIT 
; ;PUT ADDR IN MAILBOX 
; ; F I ND END OF MESSAGE 

; ; SUB START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
; ; PUT LENGTH IN MAILBOX 
; ; TELL APT TO TAKE MSG. 

; ; PUT MSG ADDR IN JSR LINKAGE 
• ;BLHP RETURN ADDRESS 
; ; PUSH 177776 ON STACK 
;;CALL TYPE MACRO 


SHOULD REPORT FATAL ERROR 7 
IF NOT: BR 
RUNNING UNDER APT? 

IF NOT: BR 

FINISHED LAST MESSAGE? 

IF NOT: WAIT 
GET ERROR # 

;;BLWP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL F LAG 
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SEQ 0103 


000040 


APTCSUP=040 


N 6 
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4461 





.S8TTL ERROR 

HANDLER ROUTINE 


4462 








4463 





**************************************************** ************* 

4464 





■•THIS ROUTINE 

WILL INCREMENT THE 

ERROR FLAG AND THE ERROR COUNT. 

4465 





*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

4466 





■•AND GO TO MY TYPE ON ERROR 


4467 





•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

4468 





•SWl 5=1 

HALT ON ERROR 


4469 





•SW1 3=1 

INHI8IT ERROR TYPEOUTS 

4470 





•SWl 0=1 

BELL ON ERROR 


4471 





•SW09=1 

LOOP ON ERROR 


4472 





•CALL 



4473 





* ERROR 

N ;; ERROR EMT AND N=ERROR ITEM NUMBER 

4474 








4475 

016010 



SERROR: 



4476 

016010 

104407 



CKSWP 

• 

TEST FOR CHANGE IN SOFT-SWR 

4477 

016012 

105237 

001103 


'$: INCB 

$ERFLG 

SET THE ERROR FLAG 

4478 

016016 

001775 



BEQ 

7$ 

DON'T LET THE FLAG GO TO ZERO 

4479 

016020 

013777 

001102 

163114 

MOV 

$TSTNM,3DI SPLAY 

DISPLAY TEST NLMBER A ND ERROR FLAG 

4480 

016026 

032777 

002000 

163104 

BIT 

#8IT10.3SWR 

BELL ON ERROR? 

4481 

016034 

001402 



BEQ 

1$ 

NO - SKIP 

4482 

016036 

104401 

001164 


TYPE 

,$BELL 

RING BELL 

4483 

016042 

005237 

001112 

1$: INC 

$ERTTL 

COUNT THE NLMBER OF ERRORS 

4484 

016046 

011637 

001116 


MOV 

(SP).$ERRPC 

GET ADDRESS OF ERROR INSTRUCTION 

4485 

016052 

162737 

000002 

001116 

sie 

#2,$ERRPC 


4486 

016060 

117737 

163032 

001114 

M0V8 

3$ERRPC,$ITFMB ; 

STRIP AND SAVE THE ERROR ITEM CODE 

4487 

016066 

032777 

020000 

163044 

BIT 

0BIT13.3SWR 

SKIP TYPEOUT IF SET 

4488 

016074 

001004 



BNE 

20$ 

SKIP TYPEOUTS 

4489 

016076 

004737 

014172 


JSR 

PC, MY TYPE 

GO TO USER ERROR ROUTINE 

4490 

016102 

104401 

001 1 71 


TYPF 

,$CRL F 


4491 

016106 



20$: 



4492 

016106 

122737 

000001 

001214 

CMPB 

#APTuNV,$ENV 

RUNNING IN APT MODE 

4493 

016114 

001007 



BNE 

2$ 

NO, SKIP APT ERROR REPORT 

4494 

016116 

113737 

001114 

016130 

MOVB 

$ITEMB.21$ ; 

SET ITEM NLMBER AS ERROR NUMBER 

4495 

016124 

004737 

015560 


JSR 

PC.$ATY4 

REPORT FATAL ERROR T 0 APT 

4496 

016130 

000 


21$: .BYTE 

0 


4497 

016131 

000 



.BYTE 

0 


4498 

016132 

000777 


22$: BR 

22$ 

APT ERROR LOOP 

4499 

016134 

005777 

163000 

2$: TST 

aswR 

HALT ON ERROR 

4500 

016140 

100002 



BPL 

3$ 

SKIP IF CONTINUE 

4501 

016142 

000000 



HALT 

• 

HALT ON ERROR! 

4502 

016144 

104407 



CKSWR 


TEST FOR CHANGE IN SOFT-SWR 

4503 

016146 

032777 

001000 

162764 3$: BIT 

#81 T09.3SWR ; 

LOOP ON ERROR SWITCH SET? 

4504 

016154 

001402 



BEQ 

4$ 

BR IF NO 

4505 

016156 

013716 

001110 


MOV 

$LPERR, (SP) 

FUDGE RETURN FOR LOOPING 

4506 

016162 

005737 

001162 

4$: TST 

$E SCAPE 

CHECK FOR AN ESCAPE ADDRESS 

4507 

016166 

001402 



BEQ 

5$ 

BR IF NONE 

4508 

016170 

013716 

001162 


MOV 

$ESCAPE, (SP) 

FUDGE RETURN ADDRESS FOR ESCAPE 

4509 

016174 



5$: 



4510 

016174 

022737 

014450 

000042 

CMP 

#$ENDAD.a#4? 

ACT-11 AUTO-ACCEPT? 

4511 

016202 

001001 



BNE 

6$ 

BRANCH IF NO 

4512 

016204 

000000 



HALT 


YES 

4513 

016206 



6$: 



4514 

016206 

000002 



RTI 


•RETURN 


•RETURN 
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SfcQ 0105 


4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 


.S8TTL SCOPE HANDLER ROUTINE 


•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NUMBER (STS TNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 
•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAYS 5 :08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE : 

*SW14=1 LOOP ON TEST 

*SW11=1 INHI8IT ITERATIONS 

•SW09-1 LOOP ON ERROR 

•SW08=1 LOOP ON TEST IN SWR<7:0> 

•CALI 

* SCOPE ;;SCOPE-IOT 


016210 


SSCOPE: 


4530 

016210 

104407 




CKSWR 


.-TEST FOR CHANGE IN SOFT-SWR 

4531 

016212 

032777 

040000 

162720 

S: 

BIT 

*8IT14.aSWR 

.-LOOP ON PRESENT TEST? 

4532 

016220 

oori4 




BNE 

SOVER 

; YES IF SW14=1 

4533 





•W*#*START OF 

CODE FOR THE XOR 

rESTER ***** 

4534 

016222 

000416 



SXTSTR: 

BR 

6$ 

;IF RUNNING ON THE “XOR'' TESTER CHANGE 

4535 








.-THIS INSTRUCTION TO A ‘NOP*’ (NOP=?40) 

4536 

016224 

013746 

000004 



MOV 

a*ERRVEC.-(SP) 

.-SAVE THE CONTENTS OF THE ERROR VECTOR 

4537 

016230 

012737 

016250 

000004 


MOV 

*5$,a*ERRVEC 

;SET FOR TIMEOUT 

4538 

016236 

005737 

177060 



TST 

3*1 77060 

.-TIME OUT ON XOR? 

4539 

016242 

012637 

000004 



MOV 

(SP)+,3*ERRVEC 

.•RESTORE THE ERROR VECTOR 

4540 

016246 

000463 




BR 

SSVLAD 

;G0 TO THE NEXT TEST 

4541 

016250 

022626 



5S: 

CMP 

(SP)+.(SP)+ 

.•CLEAR THE STACK AFTER A TIME OUT 

4542 

016252 

012637 

000004 



MOV 

(SP)+,3*ERRVEC 

.•RESTORE THE ERROR VECTOR 

4543 

016256 

000423 




BR 

7S 

.-LOOP ON THE PREStNT TEST 

4544 

016260 




6$ : ; **AA*END OF 

CODE FOR THE XOR 

TESTER***** 

4545 

016260 

032777 

000400 

162652 


BIT 

*8IT08.aSWR 

.-LOOP ON SPEC. TEST? 

4546 

016266 

001404 




BEQ 

2S 

;8R IF NO 

4547 

016270 

127737 

162644 

001102 


CMP8 

aSWR.STSTNM 

;0N THE RIGHT TEST? SWR<7:0> 

4548 

016276 

001465 




BEQ 

SOVER 

;8R IF YES 

4549 

016300 

105737 

001103 


?$: 

TSTB 

SERF LG 

.-HAS AN ERROR OCCURRED? 

4550 

016304 

001421 




BEQ 

3$ 

;8R IF NO 

4551 

016306 

123737 

001115 

001103 


CMP8 

SERMAX. SERFLG 

.-MAX. ERRORS FOR THIS TEST OCCURRED? 

4552 

Cl 631 4 

101015 




BHI 

3S 

;8R IF NO 

4553 

016316 

032777 

001000 

162614 


BIT 

*8IT09,aSWR 

.-LOOP ON ERROR? 

4554 

016324 

001404 




BEQ 

4$ 

;8R IF NO 

4555 

016326 

013737 

001110 

001106 

7$: 

MOV 

slperr.slpadr 

.SET LOOP ADDRESS TO LAST ;>COPE 

4556 

016334 

000446 




BR 

SOVER 


4557 

016336 

105037 

001103 


4$: 

CLR8 

SERFLG 

.-ZERO THE ERROR FLAG 

4558 

016342 

005037 

001160 



CLR 

STIMES 

.•CLEAR THE NUMBER OF ITERATIONS TO MAKE 

4559 

016346 

000415 




BR 

IS 

.•ESCAPE TO THE NEXT TEST 

4560 

016350 

032777 

004000 

162562 

3$: 

en 

*81 Til .aswR 

.•INHIBIT ITERATIONS? 

4561 

016356 

001011 




BNE 

1$ 

;8R IF YES 

4562 

016360 

005737 

001202 



TST 

SPASS 

; IF FIRST PASS OF PROGRAM 

4563 

016364 

001406 




BEQ 

15 

INHIBIT ITERATIONS 

4564 

016366 

005237 

001104 



INC 

SICNT 

.•INCREMENT ITERATION COUNT 

4565 

016372 

023737 

001160 

001104 


CMP 

STIMES.SICNT 

.-CHECK THE NUMBER OF ITERATIONS MADE 

4566 

016400 

002024 




BGE 

SOVER 

;BR IF MORE ITERATION REQUIRED 

4567 

016402 

012737 

000001 

001104 

1$: 

MOV 

*1. SICNT 

.-REINITIALIZE THE ITERATION COUNTER 

4568 

016410 

013737 

016466 

001160 


MOV 

SMXCNT, STIMES 

;SET NUMBER OF ITERATIONS TO DO 

4569 

016416 

105237 

001102 


SSVLAD: 

INC8 

S’STNM 

.•COUNT TEST NUMBERS 

4570 

016422 

113737 

001102 

001200 


MOVB 

STSTNM.STESTN 

.SET TEST NUMBER IN APT MAILBOX 


CVDLAAO DLV11-J 

TEST 

MACY11 
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SCOPE 

HANDLER 

ROUTINE 

<.571 

016430 

011637 

001106 



MOV 

<SP).$LPADR 

45 72 

016434 

011637 

001110 



MOV 

(S P) .SLPERR 

4573 

016440 

005037 

001162 



CLR 

$E SCAPE 

4574 

016444 

112737 

000001 

001115 


MOVB 

#1 ,$ERMAX 

4575 

016452 

013777 

OO 1 102 

162462 

$OVER : 

MOV 

STSTNM.SDI SPLAY 

4576 

016460 

013716 

001106 



MOV 

SLPADR.(SP) 

4577 

016464 

000002 




RTI 


4578 

016466 

003720 



$MXCNT 

: 2000. 



SEQ 0106 


.-SAVE SCOPE LOOP ADDRESS 

.-SAVE ERROR LOOP ADDRESS 

; CLEAR THE ESCAPE FROM ERROR ADDRESS 

.-ONLY ALLOW ONE(I) ERROR ON NEXT TEST 

.-DISPLAY TEST NUMBER 

.•FUDGE RETURN ADDRESS 

•FIXES PS 

■MAX. NUMBER OF ITERATIONS 


D 9 
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SEQ 0107 


<.579 
A 580 
4581 
A 582 
A 583 
A58A 
A585 
A 586 


.S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

; ‘THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
.■•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
; *NLMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
; ‘BEFORE THE FIRST DIGIT OF THE NLMBER. LEADING ZEROS WILL ALWAYS BE 
; ‘REPLACED WITH SPACES. 


‘CALL: 


4588 





* * 

MOV 

NUM.-(SP) 

4589 





• * 

TYPDS 


4590 








4591 

016470 




ST YPDS : 



4592 

016470 

010046 




MOV 

RO.-(SP) 

4593 

016472 

010146 




MOV 

RI.-(SP) 

4594 

016474 

010246 




MOV 

R2.-(SP) 

4595 

016476 

010346 




MOV 

R3,-(SP) 

4596 

016500 

010546 




MOV 

R5,-(SP) 

4597 

016502 

012746 

020200 



MOV 

#20200.-(SP) 

4598 

016506 

016605 

000020 



MOV 

20 (SP) ,R5 

4599 

016512 

100004 




BPL 

1$ 

4600 

016514 

005405 




NEG 

R5 

4601 

016516 

112766 

000055 

OOOOOi 


M0V8 

1 (SP) 

4602 

016524 

005000 



1$: 

CLR 

RO 

4603 

016526 

012703 

016704 



MOV 

#SD8LK,R3 

.(R3)‘ 

4604 

016532 

112723 

000040 



MOVB 

4605 

016536 

005002 



2$: 

CLR 

R2 

4606 

016540 

016001 

016674 



MOV 

$DTBL(RO; ,R1 

4607 

016544 

1 60 1 C 5 



3S : 

SUB 

R1 ,R5 

4608 

016546 

002402 




BLT 

4$ 

4609 

016550 

005202 




INC 

R2 

46 1 0 

016552 

000774 




BR 

3$ 

4611 

016554 

060105 



4$: 

ADD 

R1 ,R5 

4612 

016556 

005702 




TST 

R2 

4613 

016560 

001002 




ONE 

5$ 

4614 

016562 

105716 




TST8 

(SP) 

4615 

016564 

100407 




BMI 

7$ 

4616 

Cl 6566 

106316 



5$: 

ASL8 

(SP) 

4617 

016570 

103003 




BCC 

6$ 

4618 

016572 

116663 

000001 

177777 


MOVB 

1 (SP).-1(R3) 

4619 

016600 

052702 

000060 


6$: 

BIS 

#’0.R 2 

4620 

016604 

052702 

000040 


7$: 

BIS 

»' .R 2 

4621 

016610 

110223 




MOVB 

R2.(R3)‘ 

4622 

016612 

005720 




TST 

(R0)‘ 

4623 

016614 

0 20027 

000010 



CMP 

R0.A10 

4624 

016620 

002746 




elt 

2$ 

4625 

016622 

003002 




BGT 

8$ 

4626 

016624 

010502 




MOV 

R5.R2 

4627 

016626 

000764 




BR 

6$ 

4628 

016630 

105726 



8S: 

TST0 

(SP) + 

‘-.629 

016632 

100003 




BPL 

9$ 

4630 

016634 

116663 

1 77777 

1 77776 


MOVB 

-1(SP).-2(R3) 

4631 

016642 

105013 



9$: 

CIR8 

(R3) 

4632 

016644 

012605 




MOV 

( SP) ‘ ,R5 

4633 

016646 

012603 




MOV 

C°)‘.R3 

4634 

016650 

012602 




MOV 

(SP)‘.R? 


;;PUT THE BINARY NUMBER ON THE STACK 
; ; GO TO THE ROUTINE 


PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

8 R IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 
CHECK IF BCD DIGIT 0 
FALL THROUGH IF 0 
STILL DOING LEADING O'S? 

BR IF YES 
MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS T HE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES— SET THE SIGN FOR TYPING 
SET THE TERMINATOR 
POP STACK INTO R5 
POP STACK INTO R3 
.POP STACK INTO R2 
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*.635 016652 012601 

4636 016654 012600 

4637 016656 104401 016704 

4638 016662 016666 000002 000004 

4639 016670 012616 

4640 016672 000002 

4641 016674 023420 

46*»2 016676 001750 

4643 016700 000144 

4644 016702 000012 

4645 016704 000004 



MOV 

( SP) ♦ ,R1 

; ; POP STACK INTO R1 


MOV 

( SP) ♦ ,R0 

; ; POP STACK INTO RO 


TYPE 

.SD8LK 

;;NOU TYPE THE NUMBER 

$DTBL : 

MOV 

MOV 

RTI 

10000. 

1000. 

100. 

10. 

2(SP).4(SP) 
(SP) ♦ , ( SP) 

;; ADJUST THE STACK 

;; RE TURN TO USER 

tDBLK : 

.8LKW 

4 



SEQ 0108 


F 9 
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464 6 . S8TTL BINARY TO OCTAL (ASCII) AND TYPE 

46 A 7 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 


4671 

016714 

017646 

000000 


STVPOS: MOV 

S(SP).-(SP) 

; .-PICKUP THE MODE 

4672 

016720 

116637 

000001 

O 1 71 37 

M0V6 

1 (SP) »SOF ILL 

;;LOAD ZERO FILL SWITCH 

4673 

016726 

112637 

017141 


Move 

(SP)*.SOMODE*1 

; .-NLMBER OF DIGITS TO TYPE 

4674 

016732 

062716 

000002 


ADD 

#2, (SP) 

; .-ADJUST RETURN ADDRESS 

4675 

016736 

000406 



BR 

S TYPON 


4676 

016740 

112737 

000001 

017137 

STYPOC: M0V8 

tl.SOFlLL 

;;SET THE ZERO FILL SWITCH 

4677 

016746 

112737 

000006 

017141 

MOVB 

#6.$GM0DE*1 

;;SET FOR SIY'E) DIGITS 

4678 

016754 

112737 

000005 

017136 

S TYPON: MOVB 

#5, JOCNT 

;;SET THE ITE ".TION COUNT 

4679 

016762 

010346 



MOV 

R3.-(SP) 

.-.-SAVE R3 

4680 

016764 

010446 



MOV 

R4,-(SP) 

.-.SAVE R4 

4681 

016766 

010546 



MOV 

R5,-(SP) 

.-.SAVE R5 

4682 

016770 

113704 

017141 


MOVQ 

$OMODE*1,R4 

;;GET THE NLMBER OF DIGITS TO TYPE 

4683 

Cl 6774 

005404 



NEG 

R4 


4684 

016776 

062704 

000006 


ADD 

*6.R4 

;; SUBTRACT IT FOR MAX. ALLOWED 

4685 

017002 

110437 

017140 


MOVB 

R4,$OMODE 

.-.-SAVE IT FOR USE 

4686 

017006 

113704 

017137 


M0V8 

SOF ILL ,R4 

;;GET THE ZERO FILL SWITCH 

4687 

017012 

016605 

000012 


MOV 

1 2 ( SP) ,R5 

;; PICKUP THE INPUT NLMBER 

4688 

017016 

005003 



CLR 

R3 

;; CLEAR THE OUTPUT WORD 

4689 

017020 

006105 



IS: ROL 

R5 

.-.-ROTATE MSB INTO “C“ 

4690 

017022 

000404 



BR 

3$ 

; ; GO DO MSB 

4691 

01 7024 

006105 



7 S: ROL 

R5 

; ; F ORM THIS DIGIT 

4692 

017026 

006105 



ROL 

R5 


4693 

017030 

006105 



ROL 

R5 


4694 

01 7032 

010503 



MOV 

R5.R3 


4695 

017034 

006103 



3S: ROL 

R3 

.-.-GET LS8 OF THIS DIGIT 

4696 

017036 

105337 

017140 


DEC8 

SOMODE 

-TYPE THIS DIGIT? 

4697 

017042 

100016 



BPL 

7S 

; ;BR IF NO 

4698 

017044 

042703 

177770 


BJC 

#1 777/0, R3 

;;GET RID OF JUNK 

<•699 

017050 

001002 



BNE 

4S 

; .TEST FOR 0 

4700 

017052 

005704 



7ST 

R4 

; .-SUPPRESS THIS 0? 

4701 

01 7054 

0C1403 



BEQ 

5S 

;.8R IF YES 


►THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
►OCTAL (ASCII) NLMBER AND TYPE IT. 

►$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

►CALL: 


MOV 

TYPOS 

.BYTE 

.BYTE 


NLM.-(SP) 


NLMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=1 TO 6 FOR NLMBER OF DIGITS TO TYPE 
M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


►$ T YPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

►ST YPOS OR STYPOC 
►CALL: 

► MOV NIM.-(SP) ; .NLMBER TO BE TYPED 

► TYPON ;;CALL FOR TYPEOUT 

t 

►STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NLMBER 

►CALL: 


MOV 

TYPOC 


NLM.-(SP) 


NLMBER TO BE TYPED 
CALL FOR TYPEOUT 
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TEST 
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BINARY TO OCTAL 

(ASCII) AND 

4702 

01 7056 

005204 


4$: INC 

R4 

A 703 

017060 

052703 

000060 

BIS 

*'0.R3 

A 704 

017064 

052703 

000040 

5$: BIS 


4705 

01 7070 

110337 

017134 

Move 

R3.8S 

4706 

01 7074 

104401 

017134 

TYPE 

.8$ 

4707 

017100 

105337 

017136 

7$: DECS 

$OCNT 

4708 

017104 

003347 


BGT 

2S 

4709 

017106 

002402 


BLT 

6S 

4710 

017110 

005204 


INC 

R4 

4711 

017112 

000744 


BR 

2$ 

4712 

017114 

012605 


6$: MOV 

(SP)+.R5 

4713 

017116 

012604 


MOV 

(SPJ+.R4 

4714 

017120 

012603 


MOV 

(SP)+.R3 

47’ 5 

017122 

016666 

000002 

000004 MOV 

2(SP).4(SP> 

4716 

017130 

012616 


MOV 

<SP)+. (SP) 

4717 

017132 

000002 


RTI 


4718 

017134 

000 


8%: .BYTE 

0 

4719 

017135 

000 


.BYTE 

0 

4720 

017136 

000 


$OCNT: .BYTE 

0 

4721 

017137 

000 


SOP ILL: .BYTE 

0 

4722 

017140 

000000 


SUMODE: .WORD 

0 


S€0 0110 


DON'T SUPPRESS ANYMORE O'S 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
8R IF DONE 


INSURE LAST DIGIT ISN'T A BLANK 

GO DO THE LAST DIGIT 

RESTORE R5 

RESTORE R4 

RESTORE R3 


SET THE STACK FOR RETURNING 


RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 


01 71 76 
01 7200 
01720? 
01 7204 
017206 
017210 


0172K 

017216 

017220 


000002 


017176 
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<,723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 
4758 

4739 

4740 

4741 

4742 

4743 
4 744 

4745 

4746 
474 7 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 
4 767 
4 768 


017142 
017144 
0171 50 
017152 
017154 
017156 
017162 


017164 

017166 

017174 
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TRAP DECODER 

. S8TTL TRAP DECODER 

• **************************************************************** 

; *THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ' 7 RAP' ’ INSTRUCTION 
; *AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
; *0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
; *G0 TO THAT ROUiINE. 


S€Q 0111 


010046 

016600 

005740 

111000 

006300 

016000 

000200 


011646 

016666 

000002 


STRAP: MOV 
MOV 
T ST 
MOVB 
ASL 
MOV 
RTS 


RO.-(SP) 

2(SP).R0 

-(R0> 

(RO).RO 

RO 

STRPAD(RO) ,R0 
RO 


SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 


:THIS IS USE TO HANDLE THE ‘•GETPRI" MACRO 


000004 000002 


STRAP2 : MOV 
MOV 
RTI 


(SP).-(SP) 

4(SP).2(SP> 


MOVE THE PC DOWN 
MOVE THE PSW DOWN 
RESTORE THE PSW 


.SBTTL TRAP TABLE 


•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
•BY THE ‘ 7 RAP' ' INSTRUCTION. 


ROUTINE 


017164 

014S04 

016740 

016714 

016754 

016470 


STRPAD : .WORD 
STYPE 


.WORD STRAP2 
STYPE ; ;CALL=TYPE 
STYPOC ;;CALL=TYPOC 
STYPOS ;;CALL=TYPOS 
STYPON ;;CALL=TYPON 
STYPDS ;;CALL=TYPDS 


TRAP*1( 104401) 
TRAP*2( 104402) 
TRAP*3( 104403) 
TRAP+4( 104404) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NLfBER (NO LEADING ZEROS) 
TYPE OCTAL NLMBER (AS PER LAST CALL) 


TRAP*5(104405) TYPE DECIMAL NU©ER (WITH SIGN) 


Cl 7212 015056 


SGTSWR ;;CALL=GTSWR TRAP*6( 104406) GET SOFT-SWR SETTING 


014766 

015250 

015370 


000001 


SCKSWR ;;CALL=CKSWR 
SRDCHR ; ;CALL-RDCHR 
SRDLIN ;;CALL=RDLIN 


TRAP*7(104407) TEST FOR CHANGE IN SOFT-SWR 
T RAP*10( 104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP+1 1 ( 1 0<*4 1 1 ) TTY TYPEIN STRING ROUTINE 


;MAXMEM FOR APT = 17400 

;MAXMEM NON AP T 17500 (ABS LOADER) 


I 9 
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SYMBOL TABLE 


ABASE = 176500 

AVECT1- 

000300 

DLVEC 

001256 

ACDWl = 000000 

AVECT2= 

000000 

DSUR = 

177570 

ACDW2 = 000000 

BITO = 

000001 

EMTVFC= 

000030 

ACPUOP= 000000 

BITOO = 

000001 

ERRCHK 

006500 

ACTCH 012364 

BIT01 = 

000002 

ERRCNT 

005622 

ADORES 014156 

BIT02 = 

000004 

ERROR = 

100000 

ADDWO - 000000 

BIT03 - 

000010 

ERRORF 

003304 

ADDWl = 000000 

BIT04 = 

000020 

ERRVEC= 

000004 

ADDWl 0= 000000 

BI T 05 = 

000040 

ERWRD 

012366 

ADDWl 1 = 000000 

BIT06 = 

000100 

EVEN0D= 

000004 

ADDWl 2= 000000 

BIT07 = 

000200 

EXJTFL 

003306 

ADDWl 3= 000000 

BIT08 = 

000400 

FLAG 

012612 

ADDWl 4= 000000 

BIT09 = 

001000 

FRERR - 

020000 

ADDWl 5= 000000 

BI TT 

000002 

GTSWR - 

104406 

ADDW2 - 000000 

bi t io = 

002000 

HOLDSC 

012613 

ADDW3 = 000000 

BI Til - 

004000 

HOWLON= 

000000 

ADDW4 = 000000 

BIT12 - 

010000 

HT = 

00001 1 

ADDW5 = 000000 

8 1 T 1 3 = 

020000 

I 

001270 

ADDW6 = 000000 

BIT14 

040000 

INTFLA 

013616 

ADDW7 = 000000 

BIT15 = 

100000 

INTRTA 

007744 

ADDW8 = 000000 

BIT2 ~ 

000004 

INTSRV 

013610 

ADDW9 = 000000 

BIT3 - 

000010 

10TVEC= 

000020 

ADEVC T= 000000 

BIT4 

000020 

LF 

000012 

ADEVM - 000000 

BIT5 = 

000040 

LOOP 

001 732 

ADRS =*000001 

81 T6 = 

000100 

MASK 

014162 

AENV = 000000 

BIT7 = 

000200 

MASK1 

013502 

AENVM - 000000 

BIT8 - 

000400 

MASK2 

013504 

AFATAL= 000000 

BI T9 = 

001000 

MASK3 

013506 

AMADR1 = 000000 

BPTVEC= 

000014 

MASK 4 

013510 

AMADR2= 000000 

BREAK - 

000001 

MODNUM 

013474 

AMADR3= 000000 

BRK = 

000010 

MODTST 

007000 

AMADR4= 000000 

CHAN 

014164 

MSK 

013516 

AMAMS1= 000000 

CHCNT 

007766 

MYTYPE 

014172 

AMAMS2= 000000 

CHCTR 

012362 

NUMBER 

005624 

AMAMS3- 000000 

CHMASK 

007764 

ORERR = 

040000 

AMAMS4= 000000 

CHMSK 

012360 

PARI TY= 

000002 

AMSGAD= 000000 

CHNUM 

013476 

PASS 

003302 

AMSGLG= 0 00000 

CHOTAB 

011360 

PERR = 

010000 

AMSGTY= 000000 

CHI TAB 

011560 

PHASE 2 

014166 

AMTYP1= 000000 

CH2TAB 

011760 

PIRG * 

1 77772 

AMTYP2- 000000 

CH3TA8 

012160 

PIROVE= 

000240 

AMTYP3 000000 

CKSWR = 

104407 

PRIERR 

007770 

AMT YP4= 000000 

CLR - 

OOOOCO 

PRO 

000000 

APASS = 000000 

CONSOL 

013604 

PR1 

000040 

APR I OR = 000000 

CR 

000015 

PR2 

000100 

APTCSU= 000040 

CRLF - 

000200 

PR3 

000140 

APTENV= 000001 

CYCLE 

013620 

PR4 

000200 

APTS 1 7= 000200 

DATA 

005662 

PR5 

000240 

APTSPO= 000100 

DDISP = 

177570 

PR6 

000300 

A5WREG= 000000 

DISPLA 

001142 

PR 7 

000340 

A T ESTN 000000 

DISPRE 

000174 

PS 

177776 

AUNIT = 000000 

DLADD 

001254 

PSW = 

177776 

AuSWB 001031 

DLADDR 

1 76500 

PWRVEC" 

000024 


SEQ Oil? 


P1CNT OKI 70 
RBUF 001262 
RCHO 007724 
RCH1 007726 
RCH2 007730 
RCH3 007732 
RCSR 001260 
RCVRDO= 000200 
RCVRIE= 000100 
RCVROS 007424 
RCVR1S 007504 
RCVR2S 007564 
RCVR3S 007644 
RDATAO= 000001 
RDATA1 = 000002 
RDATA2= 000004 
RDATA3= 000010 
RDATA4- 000020 
RDATA5= 000040 
RDATA6= 000100 
RDATA7= 000200 
RDCHR = 104410 
RDLIN - 104411 
RDRRUN= 000001 
REC 005664 
REG = 000004 
REGSAV 012606 
RESVEC= 000010 
RHLD 005770 
ROSRV 010660 
R1SRV 011000 
R2SRV 011120 
R3SRV 011240 
R5STAC 001332 
R6 =1000006 
R 7 =1000007 
SEREND 01 1 360 
SET = 177777 
SETCLR= 000006 
SFTREG 013512 
SIZE 012700 
SRVEND 007724 
STACK - 001100 
START 001334 
STATEN 012360 
STKLMT= 177774 
SWR 001140 
SWREG 000176 
SWO = 000001 
SWOO 000001 
SW01 - 000002 
SW02 - 000004 
SW03 = 000010 


SW04 - 000020 
SW05 = 000040 
SW06 - 000100 
SW07 000200 
SW08 = 000400 
SW09 =001000 
SU1 = 000002 
SW10 - 002000 
SU11 - 004000 
SW12 = 010000 
Sul 3 - 020000 
SU14 - 040000 
SW15 - 100000 
SW2 = 000004 
SW3 = 000010 
SW4 = 000020 
SW5 = 000040 
SW6 = 000100 
SW7 000200 
SW8 = 000400 
SU9 - 001000 
T ABEND 007764 
TABL1 013520 
TABL2 014116 
TABL3 014126 
TABL4 014136 
TABL5 014146 
TABL6 012416 
TABL7 012426 
TABL8 012436 
TBI TVE= 000014 
TBUF 001266 
TCHO 007734 
TCH1 007736 
TCH2 007740 
TCH3 007742 
TCNT 007772 
TCSR 001264 
TDATAO= 000001 
TDATA1 = 000002 
TDATA2= 000004 
TDATA3= 000010 
TDATA4= 000020 
TDATA5- 000040 
TDATA6= 000100 
TDATA7= 000200 
TEMP 007774 
TIME = 000000 
TIMER 012446 
TIMSAV 012610 
1KVEC 000060 
TMP 012370 
TMPO 012372 
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?*P0E 

012374 

SAPTHD 

OOiOOO 

$F$INC- 

000210 

TMP1 

012376 

SATYC 

015566 

$F$LOO= 

000200 

TMP1E 

012400 

$ATY1 

015542 

$F$NAM= 

000160 

TMP2 

012402 

$AT Y3 

015550 

$F$NO - 

000403 

TMP2E 

012404 

SATY4 

015560 

$F£OR ~ 

000320 

TMP3 

012406 

SAUTOB 

001134 

$F$RTN= 

000300 

TMP5E 

012410 

$8ASE 

001250 

$F$SFL= 

000140 

TMP4 

012414 

S8DADR 

001122 

$F$WT= 

0001 30 

TMP6 

013514 

SBDDAT 

001126 

$F$UHI= 

000120 

m>7 

013606 

$8ELL 

001164 

$F$YES= 

000402 

TPVEC = 

000064 

S8&NL E = 

177777 

$GDADR 

001120 

TRAN 

005626 

$CHARC 

014 7 62 

$GDDAT 

001124 

TRAF*VE = 

000034 

SCKSWR 

014766 

$GET42 

014440 

TRTVEC= 

000014 

SCMTAG 

001100 

$GTSWR 

015036 

TRUE = 

000001 

$CM3 - 

000000 

$HD = 

000000 

TSTCON 

013530 

$CNTLG 

015513 

$HIBTS 

OOIOOO 

TST1 

002066 

$CNTL 

015506 

SICNT 

001104 

TST10 

003440 

-$CPUOP 

001222 

$IFLEV= 

177777 

TST11 

003566 

SCRLF 

001 17 1 

$ INTAG 

001135 

TST12 

003712 

SDBLK 

016704 

$ISKO = 

000001 

TST13 

004222 

$DEVCT 

001204 

$ISK1 - 

000001 

TST14 

004512 

$DEVM 

001252 

$ISK2 - 

000001 

TST15 

005046 

$DOAGN 

014460 

SIT EMB 

001114 

TST16 

005322 

$DTBL 

016674 

$LF 

001172 

TST17 

005772 

$ENDAD 

014450 

$LFLG 

016005 

TST2 

002264 

$ENDCT 

014416 

$LOCTA= 

177777 

TST20 

006502 

$ENDMG 

014467 

$LPADR 

001106 

T S T 2 1 

007000 

JENULL 

014464 

$LPERR 

001110 

TST22 

007776 

$ENV 

001214 

$LSTCN= 

177777 

TST3 

002440 

$ENVM 

001215 

$LST IN= 

000000 

TST4 

002614 

$E0P 

014362 

$LSTST= 

177777 

TST5 

002756 

$EOPCT 

014410 

$LSTTA= 

000000 

TST6 

003016 

$ERFLG 

001103 

SMADR1 

001226 

TST7 

003310 

$ERMAX 

001115 

$*ADR2 

001232 

TYPDS = 

1044C5 

$ERRFL= 

000000 

$MDR3 

001236 

TYPE = 

104401 

SERROR 

016010 

SMADR4 

001242 

TYPOC " 

104402 

SERRPC 

001116 

$miL 

001 1 74 

TYPON = 

1044C4 

$ERRTB 

001254 

$MWS1 

001224 

TYPOS - 

104403 

$ERTTL 

001112 

SMAMS2 

001230 

VECTOR 

014160 

$ESCAP 

001162 

SWIS3 

001234 

WAIT 

012620 

$etabl 

001214 

SMAMS4 

001240 

WHICHB- 

000002 

$ETEND 

001254 

SMBADR 

001002 

WRAP = 

000020 

$FATAL 

001 1 76 

$MCALL= 

000000 

XMITIE 

000100 

$FFLG 

016006 

$nflg 

016004 

XMI TRD= 

000200 

$fillc 

001156 

SNNEU 

015531 

XWITOS 

007454 

$F ILLS 

001155 

SWSGAD 

001210 

XMIT1S 

007534 

$F$AND= 

000310 

SMSGLG 

001212 

XM1 T2S 

007614 

$F$8AD 

000401 

SMSGTY 

001 1 74 

XM1 T3S 

007674 

$F$6LA= 

0001 70 

SMSUR 

015520 

XOSRV 

010734 

$F$CAS= 

0001 50 

SMTYP1 

001225 

xlSRV 

0H054 

$F$DEC 

000220 

$MTYP2 

001231 

X2SRV 

011174 

$F$GOO= 

000400 

$MTYP3 

001235 

X3SRV 

011314 

$F$IF 

000110 

SMTYP4 

001241 


SEQ 0113 


SMXCNT 016466 
$NE S T L = 177777 
SMSKO = 000300 
$NSK1 = 000210 
$NSk2 = 000210 
SNSK3 = 000110 
SNULL 001154 
$NUTST= 000001 
$0CNT 017136 
JOMODE 017140 
$0VER 016452 
SPASS 001202 
JPASTM 001006 
$QUES 001170 
$RDCHR 015250 
$RDLIN 015370 
5RDSZ - 000010 
SRTMAD 014462 
$SAVLE= 177777 
SSCOPE 016210 
$SETUP= 000127 
SSSKC = 000253 
$STUP - 177777 
$SVLAD 016416 
JSVPC = 000430 
$SWR = 167400 
SSWREG 001216 
$SURMK= 000000 
$TAGLE= 177777 
$TAGNU= 000257 
STEMP = 000300 
$TESTN 001200 
STIMES 001160 
$TK8 001146 
$TKS 001144 
$TN = 000023 
$TPB 001152 
JTPFLG 001157 
$TPS 001150 
STRAP 017142 
STRAP2 017164 
$TRP = 000012 
JTRPAD 017176 
$TSKO = 000251 
$TSK1 = 000250 
$TS«2 = 000254 
JTSK3 = 000253 
STSK4 = 000126 
$TSTM 001004 
STSTNM 001102 
STTYIN 015476 
STYPDS 016470 
STYPE 014504 


STYPEC 014716 
STYPEX 014764 
STYPOC 016740 
JTYPON 016754 
STYPOS 016714 
$UNI T 001206 
SUNITM 001010 
$USUR 001220 
$VECT1 001244 
JVECT2 001246 
SXTSTR 016222 
$YESNO= 000001 
$$ARGC= 000000 
$$8YTE= 000402 
SiFLAG= 000001 
$$FROM= 000000 
$SGET4= 000000 
$$L0C = 012576 
$$L0CN= 000000 
$$RETU= 000000 
$$RTN1 = 000255 
$$RTN2= 000256 
S$TO = 000001 
SOFILL 017137 
$1 002062 
$10 002410 
$100 005162 
$101 005224 
$102 005240 
$103 005276 
$104 005270 
$105 005266 
$1 C6 005274 
$107 005320 
$11 002440 
$110 005320 
$1 1 1 005360 
$112 005364 
$113 005452 
$114 005460 
$115 005476 
$116 005514 
$117 005620 
$12 002510 
$120 005616 
$121 005562 
$12? 005614 
$123 005576 
$124 005614 
$125 005612 
$126 005614 
$127 005620 
$13 002536 
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SYMBOL 

TABLE 



1130 

005652 


$163 

006646 


$215 

010524 

11 31 

005712 


$164 

006646 


$216 

01 0534 

$1 3 2 

005734 


$165 

006774 


$217 

010554 

1133 

005766 


$166 

007022 


$22 

003016 

$134 

005760 


$167 

007054 


$220 

010614 

$135 

005766 


$17 

002700 


$221 

010614 

$136 

006030 


$170 

007112 


$222 

010632 

$137 

006036 


$171 

007202 


$223 

010644 

$14 

002564 


$172 

007202 


$224 

010654 

$140 

006052 


$173 

007244 


$225 

010726 

$141 

006052 


$174 

007244 


$226 

010732 

$142 

006134 


$175 

007422 


$227 

011046 

$143 

006152 


$176 

010024 


$23 

003046 

$144 

006166 


$177 

010044 


$230 

011052 

$145 

006240 


$2 

002066 


$231 

011166 

$146 

006224 


$20 

002726 


$232 

011172 

$147 

006222 


$200 

010132 


$233 

011306 

$15 

002614 


$201 

010170 


$234 

011312 

$150 

006240 


$202 

010174 


$235 

012614 

$151 

006240 


$203 

010232 


$236 

012616 

$152 

006266 


$204 

010232 


$237 

012466 

$153 

006300 


$205 

010274 


$24 

003052 

$154 

006312 


$206 

010316 


$240 

012570 

$155 

006324 


$207 

010326 


$241 

012504 

$156 

006374 


$2 1 

002756 


$242 

012512 

$157 

006464 


$210 

010360 


$243 

012530 

$16 

002652 


$211 

010374 


$244 

012602 

$160 

006476 


$212 

010450 


$245 

012676 

$161 

006750 


$213 

010554 


$246 

012676 

$162 

006574 


$214 

010510 


$247 

012644 

. A8S. 

01 7222 

000 

CON RO ABS 

LCL 

D 
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SEO 0 1 ’ 


$25 

003300 

$51 

003754 

$250 

012640 

$52 

003750 

$251 

012670 

$53 

003752 

$252 

012656 

$54 

003756 

$253 

012654 

$55 

004024 

$254 

012666 

$56 

004062 

$255 

014360 

$57 

004102 

$256 

014360 

$6 

002334 

$26 

003126 

$60 

004124 

$27 

003166 

$61 

004172 

$3 

002130 

$62 

004206 

$30 

003222 

$63 

004220 

$31 

003222 

$64 

004404 

$32 

003260 

$65 

004432 

$33 

003256 

$66 

004550 

$34 

003266 

$67 

004554 

$35 

003346 

$7 

002362 

$36 

003350 

$70 

004724 

$37 

003416 

$71 

004752 

$4 

002154 

$72 

005032 

$40 

003440 

$73 

005104 

$41 

003476 

$74 

005106 

$42 

003500 

$75 

005116 

$43 

003546 

$76 

005114 

$44 

003566 

$77 

005322 

$45 

003624 


- 017222 

$46 

003626 

!$x 

001000 

$47 

003674 


$5 

002314 



$50 

003712 




